Jeg har et lille problem med at udskrive indholdet af en memo.
Jeg har brugt følgende kode:
procedure TForm1.Print1Click(Sender: TObject);
var
PrintFil: TextFile;
I: Integer;
begin
if PrintDialog1.Execute then
begin
try
AssignPrn(PrintFil);
ReWrite(PrintFil);
for I := 0 to Memo1.Lines.Count - 1 do
WriteLn(PrintFil, Memo1.Lines[I]);
finally
CloseFile(PrintFil);
end;
end;
end;
Men når jeg prøver at køre programmet kommer følgende fejlmeddelese.
[Error] Read.pas(174): Undeclared identifier: 'AssignPrn'
[Fatal Error] FormMail.dpr(8): Could not compile used unit 'Read.pas'
Hjæææææælp....
Tja Jeg vil sige at den Skal se sådan her ud
procedure TForm1.Print1Click(Sender: TObject);
var
PrintFil: TextFile;
I: Integer;
begin
if PrintDialog1.Execute then
begin
try
AssignPrn(PrintFil);
ReWrite(PrintFil);
Printer.Canvas.Font := Meno.Font;
for I := 0 to Memo.Lines.Count - 1 do
WriteLn(PrintFil, Memo.Lines[I]);
finally
CloseFile(PrintFil);
end;
end;
end;
Håber det hjælper dig vider
[Redigeret d. 29/03-02 20:42:25 af Bjarne Bøgebjerg][Redigeret d. 29/03-02 20:44:47 af Bjarne Bøgebjerg]