skriv ut

3 svar · 173 visningar · startad av firstchoice 29 maj 2002

firstchoiceMedlem sedan okt. 2001615 inlägg

Frågan29 maj 2002 06:12#1

jag har följande kod!

*procedure
TForm1.Skrivut1Click(Sender: TObject);
var
Rad: Integer;
Texten: TextFile;
begin
try
AssignPrn(Texten);
Rewrite(Texten);
Printer.Canvas.Font:=Memo1.Font;
for Rad := 0 to Memo1.Lines.Count -1 do

  WriteLn(Texten, Memo1.Lines\[Rad\]);
System.Close(Texten);

except
ShowMessage ('Kan inte skriva ut! Är skrivaren installerad rätt?');
end;
end;
Som du vet sedan tidigare skriver Delphi automatiskt raderna
procedure TForm1.MittMenyValClick(Sender: TObject);
begin

end;*

Delphi godkänner inte detta!! "AssignPrn(Texten);"
vad är fel?
/felix

jtMedlem sedan juni 2000350 inlägg

29 maj 2002 06:22#2

Lägg till Printers under uses.

firstchoiceMedlem sedan okt. 2001615 inlägg

29 maj 2002 11:21#3

uses

kan inte hitta uses

MinOrkMedlem sedan aug. 2000234 inlägg

29 maj 2002 12:50#4

Kolla längst upp i din källkod (.pas filen). Där står det nånting i stil med:

[b]unit[/b] NamnPåUnit;
[b]interface[/b]
[b]uses[/b]
    Lista-på-en-massa-units