Entwickler-Ecke

Dateizugriff - Textdatei Formatieren


Visum - So 22.12.02 17:33
Titel: Textdatei Formatieren
Hi,
ich möchte mit Delphi eine Textdatei erstellen und gleichzeitig formatieren.
D.h. ich habe jeweils 3 Strings, die nebeneinander angeordnet werden sollen, sodass in der Datei die 3 Teile eines "Datensatzes" untereinander stehen. Also wie in einer Tabelle.

Wie kann ich das machen?

mfG
Visum


Keldorn - So 22.12.02 19:09

Hallo,

du könntest Tabs zwischen den Datenfeldern schreiben.
Wird allerdings nicht immer zum Erfolg führen, insbesondere beim Anzeigen, wenn ein datenfeld über die Tablänge geht. Du weißt auch nicht, mit welkcher Schriftart und größe die Textdatei angezeigt wird...
fürs anzeigen kannst du auch ein Richedit nehmen, dort kannst du die Tab-Positionen einezeln und Pixelgenau setzen, oder ein Stringgrid.

Mfg Frank


Visum - So 22.12.02 19:29

Jo, das mit den Tabs wäre schon nicht schlecht.
Nur wie schreibe ich die mit Delphi in die Datei?


Keldorn - So 22.12.02 19:35

Hallo


Quelltext
1:
2:
3:
'blablabla' + #9 + 'blablabla'
oder
'blablabla' + chr(vk_tab) + 'blablabla'


Mfg Frank


thebe - So 22.12.02 21:08

könnt mich täuschen ob das funktioniert, aber du könntest die Strings mit #10 vollstopfen bis die Strings ne gewisse Länge erreicht haben.


Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure ExpantToLength(var s: string; b: byte);
begin
   while Length(s) < b do
   begin
      s := s + #10;
   end;
end;