Problemer med PrintDialog

Kode 

procedure TForm1.ToolButton11Click(Sender: TObject); 
var 
i,col,lin:integer; 
begin 
If PrintDialog1.Execute then 
begin; //Her
col := 0; 
lin := 0; 
Printer.BeginDoc; 
for i := 0 to Memo1.Lines.Count-1 do 
begin 
Printer.Canvas.TextOut(col,lin, Memo1.Lines); 
Printer.Canvas.Font := Memo1.Font; 
Printer.Title := Form1.Caption; 
lin := lin + 30; 
end; 
printer.Enddoc; 
end; //her
end; 

Davs

Det er fordi du har glemt en begin; end; blok

Kode 

procedure TForm1.ToolButton11Click(Sender: TObject); 
var 
i,col,lin:integer; 
begin 
If PrintDialog1.Execute then 
begin; //Her
col := 0; 
lin := 0; 
Printer.BeginDoc; 
for i := 0 to Memo1.Lines.Count-1 do 
begin 
Printer.Canvas.TextOut(col,lin, Memo1.Lines); 
Printer.Canvas.Font := Memo1.Font; 
Printer.Title := Form1.Caption; 
lin := lin + 30; 
end; 
printer.Enddoc; 
end; //her
end; 

---
Hilsen Anders

[Redigeret d. 21/07-04 20:06:00 af Anders (r0x3r)]

Kode 

procedure TForm1.ToolButton11Click(Sender: TObject);
var
i,col,lin:integer;
begin
If PrintDialog1.Execute then
begin
col := 0;
lin := 0;
Printer.BeginDoc;
for i := 0 to Memo1.Lines.Count-1 do
begin
Printer.Canvas.TextOut(col,lin,Memo1.Lines);
Printer.Canvas.Font := Memo1.Font;
Printer.Title := Form1.Caption;
lin := lin + 30;
end;
printer.Enddoc;
end;
end;

Kode 

procedure TForm1.ToolButton11Click(Sender: TObject);
var
i,col,lin:integer;
begin
If PrintDialog1.Execute then
begin
col := 0;
lin := 0;
Printer.BeginDoc;
for i := 0 to Memo1.Lines.Count-1 do
begin
Printer.Canvas.TextOut(col,lin,Memo1.Lines.Strings[i]);
Printer.Canvas.Font := Memo1.Font;
Printer.Title := Form1.Caption;
lin := lin + 30;
end;
printer.Enddoc;
end;
end;

Ja okay, her er så en bug i systemet så den ikke kan skrive [i ] i en kodeblok. Der skal stå Memo1.Lines.Strings[i ] uden mellemrummet.

---
Hilsen Anders