Einfaches Drucken einer ini-Datei ohne Rave & Co.

[Steve]

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
  SL            : TStringList;
  intRandLinks,
  intRandOben,
  i             : Integer;
BEGIN
  // Initialisieren
  intRandLinks := 100;
  intRandOben  := 100;
  // Datei in StringListe laden
  SL := TStringList.Create;
  SL.LoadFromFile('C:\IniFile.ini');
  // Drucken-Dialog
  IF PrintDialog1.Execute THEN
  BEGIN
    WITH Printer DO
    BEGIN
      // Druck beginnen
      Title := 'C:\IniFile.ini';
      BeginDoc;
      FOR i:=0 TO SL.Count-1 DO
        // Text drucken
        Canvas.TextOut(intRandLinks,
                       intRandOben + (i*Canvas.TextHeight(SL.Strings[i])),
                       SL.Strings[i]);
      // Druck abschließen
      EndDoc;
    END;
  END;
  // Aufräumen
  SL.Free;
END;

So oder so ähnlich würds "selber gemacht" aussehen
Dann kannste eigentlich alles anpassen wie Du möchtest..

Gruß
Stephan