Fehler bei AssignPrt

[Hercules]

Hallo an Alle,
weiß jemand, warum AssignPrt nicht läuft ?

Habe folgende Befehle und Uses im Programm (Beispiel):

Code: Alles auswählen

Uses Printers, PrintersDlgs;
 
procedure TForm1.Button1Click(Sender: TObject);
var MyFile: TextFile;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
WriteLn(MyFile, 'AAAAAAAAAAA');
CloseFile(MyFile);
end;

Der Compiler meldet mir ständig:
unit1.pas(37,10) Error: Identifier not found "AssignPrn"

PS: Die Pakete Printers4lazide und Printer4lazarus habe ich, laut Lazarus, eingefügt.

Mit Freundlichen Grüßen, Hercules.

[Teekeks]

Was soll denn dieses "AssignPrn" machen, deiner Meinung nach? Ich kenne es nicht und mein Lazarus auch nicht...

[Hercules]

Hallo TeeKeks, ich kenne AssignPrt von Delphi.
Die Prozedur weist dem Drucker eine Textdateivariable zu.

[Teekeks]

Das gibt es IMHO nicht in Lazarus.
Zudem sollte man evtl. auf Objekte umsteigen.
Du hast ja schon printers eingebunden. Wenn du dort mal hinein siehst, findest du eine Klasse TPrinter und eine Variable printer.
Mit dieser Variable solltest du Arbeiten.
Deine Variante ist nicht sehr Zukunfts-Trächtig....

[Hercules]

Wie geht denn das, 'in Printers hineinschauen?'

[Euklid]

Wie geht denn das, 'in Printers hineinschauen?'

... z.B. mit der Bibliotheken-Suche auf der Portalseite dieses Forums.

http://lazarus-ccr.sourceforge.net/docs ... dex-8.html" onclick="window.open(this.href);return false;
http://lazarus-ccr.sourceforge.net/docs ... inter.html" onclick="window.open(this.href);return false;

Leider scheint es zu printers aber noch kein Wiki-Eintrag zu geben.

Viele Grüße, Euklid

[Hercules]

Hallo Teekeks, Hallo Euklid,
vielen Dank für Eure Mühe, werd mir das morgen mal reinziehen, vielleicht geht mir dann ein Licht auf.

[Teekeks]

Ich meinte in den Quelltest hinein sehen.
Das geht ganz einfach mit
[STRG]+[Linksklick] auf den Uses-Eintrag "printers".
Es wird jetzt die Unit printers angezeigt.

[Hercules]

Hallo Teekeks, vielen Dank, wieder was dazugelernt!