Autor Beitrag
Visum
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 106



BeitragVerfasst: So 22.12.02 17:33 
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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 2266
Erhaltene Danke: 4

Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
BeitragVerfasst: 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

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
Visum Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 106



BeitragVerfasst: 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
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 2266
Erhaltene Danke: 4

Vista
D6 Prof, D 2005 Pro, D2007 Pro, DelphiXE2 Pro
BeitragVerfasst: So 22.12.02 19:35 
Hallo

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


Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)
thebe
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 128

WinXP Home
D6 Enterprise
BeitragVerfasst: 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.

ausblenden 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;