kann eintrag aus stringgrid nicht in txt-datei speichern

[Molzer]

nein, leider fehler E/A 102..
bleibt bei append(f) hängen..

hab in der hilfe bissl unter e/a gesucht, bin aber net viel schlauer als vorher...

was noch ist: in zeile "WriteLn (F, Name);" kann ich nicht writeln(F, Titel+'|',Name+'|',Song+'|');
song und title mag er nicht, warum das? wenn doch name nimmt..

fg

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    s: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  DB:TDB;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
var f:textfile;
i:integer;
procedure TForm2.FormCreate(Sender: TObject);
begin
DB:=TDB.Create;
s.Cells[0,0]:='';
s.Cells[0,1]:='1';
s.Cells[0,2]:='2';
s.Cells[1,0]:='Titel';
s.Cells[2,0]:='Name';
s.Cells[3,0]:='Song';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
begin
If Not FileExists(opendialog1.FileName) Then Begin
  ReWrite(f);
End Else Begin
  Append(f);
End;
Try
  WriteLn (F, Name);
Except
  On e : Exception Do Begin
    ShowMessage(e.Message);
  End;
End;
CloseFile(f);
end;
end;
end.