Textdatei speichern mit Tabstop getrennt

[GUFR]

Hallo

Wie lautet die Syntax um Text mit Tabstop getrennt zu speichern

Hier mein Code:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
AssignFile(f, 'SerienTxt.txt');
rewrite(f);
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Select * FROM Elektr_Lohnzahlung');
Form1.Query1.open;
Form1.Query1.First;
While Not Form1.Query1.Eof DO
begin
For i:= 0 To Form1.Query1.FieldCount-1 Do
Write(F,
Form1.Query1.Fields[i].AsString+' ');
if Form1.Query1.FieldCount-1 =
Form1.Query1.FieldCount-1 Then
Writeln(f,' ');
Form1.Query1.Next;
end;
CloseFile (f);
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Select * FROM Elektr_Lohnzahlung');
Form1.Query1.Active:= True;
end;


Gruss

Gufr

[Achtzig]

Das Tab-Zeichen hat den Zeichencode #9.

[Jelly]

Folgender Auszug aus dem Kopf macht irgendwie keinen Sinn

Delphi-Quellcode:

if Form1.Query1.FieldCount-1 = 
Form1.Query1.FieldCount-1 Then 
Writeln(f,' ');

Übrigens, nächstes Mal die Delphi Tags benutzen, so kann ja kein Mensch was lesen.

[GUFR]

Hallo

Danke für die Hilfe, es funktioniert.


Wie benütze ich die Delphi Tags?

Gruss

GUFR

[Sharky]

Zitat von GUFR:

...Wie benütze ich die Delphi Tags? ...

Setze vor deinen Code ein [*delphi] und dahinter ein [*/delphi]. Das ganz ohne die *

[juergen]

Zitat von Sharky:

Zitat von GUFR:

...Wie benütze ich die Delphi Tags? ...

Setze vor deinen Code ein [*delphi] und dahinter ein [*/delphi]. Das ganz ohne die *

Am einfachsten geht es, wenn du den gesamten Code markierst und dann oben im Kopf einfach den Button "Delphi-Code" betätigst???...