Textdatei einlesen u. drucken

[mkinzler]

In deiner Unit sollten 2 Uses-Clauses stehen. In einer muß SysUtils stehen.

[DGL-luke]

du musst die unit Sysutils einbinden. hat man dir aber auch schon gesagt.

dzu hast oben in DEINER unit eine sogenannte "uses-klausel". da steht

Delphi-Quellcode:

uses
  System, Forms, .......;

und da muss noch "Sysutils" hin.

ach ja: http://dst.info/tutorials/ da könnts was für dich geben

// ja, sag ich doch....

[Sturmrider]

achso *nickt*
aber ich habe oben in den uses stehen: Sysutils, Forms, Controls, Classes, StdCtrls, unitTStruckturdaten, Unit3,
Dialogs, Printers, Grids; trotzdem kommt die Fehlermeldung:
[Fehler] Unit1.pas(157): Undefinierter Bezeichner: 'StringReplace'

[StefanDP]

Wieso alles so kompliziert!?

Packt den Text in ein TRichEdit, Schriftart auf ne Fix-Breiten-Schrift und dann einfach die print() Methode vom TRichEdit nehmen.

Den Drucker kann man dann noch schön mit nem PrinterDialog abfragen. Fertig!

[rory]

Zitat von StefanDP:

Wieso alles so kompliziert!?

Packt den Text in ein TRichEdit, Schriftart auf ne Fix-Breiten-Schrift und dann einfach die print() Methode vom TRichEdit nehmen.

Den Drucker kann man dann noch schön mit nem PrinterDialog abfragen. Fertig!

So - oder so ähnlich - mogle ich mich auch (mit einem unsichtbaren RichEdit) oft ums leidige Drucken herum.

Notfalls lasse ich mein Programm eine temporäre Datei erzeugen, die dann per ShellExecute vom Windows-Notepad/Wordpad per Kommandozeilenparameter gedruckt wird.

Ist aber m.M.n. keine zufriedenstellende Antwort

mfg

[mkinzler]

Kosmisch, dann gabs in D% StringReplace auch noch nicht . Dann implementieren wir das halt schnell ;-(

Delphi-Quellcode:

function StringReplace( str: string; alt: Char; neu: Char);
var 
  i: Integer;
begin
  for i := 1 to Length( str) do
  begin
    if str[i] = alt then str[i] := neu;
  end;
  result := str;
end;

Jetzt mußt du nur den letezten paramter weglassen. Also:

sl.CommaText := StringReplace( s, '|', ',');