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.