Hab jetzt folgendes zusammengeschnipselt:
Delphi-Quellcode:
procedure TForm1.Button8Click(Sender: TObject);
begin
savedialog1.InitialDir:=(Application.ExeName);
if SaveDialog1.Execute then begin
SaveFile(SaveDialog1.FileName,ExtractFilepath(SaveDialog1.FileName));
end;
end;
Meine Prozedur SaveFile lautet:
Delphi-Quellcode:
procedure SaveFile(Name:string;Pfad:WideString);
var
Datei: TextFile;
i:integer;
begin
AssignFile(Datei, Pfad + Name+'.txt');
[i]Rewrite(Datei);[/i]
for i:=1 to form1.Max-1 do begin
if form1.KlickType[i]=1 then WriteLn(Datei, '1 '+inttostr(form1.pos[i].X)+'/'+inttostr(form1.pos[i].Y) );
if form1.KlickType[i]=2 then WriteLn(Datei, '2 '+inttostr(form1.pos[i].X)+'/'+inttostr(form1.pos[i].Y) );
if form1.KlickType[i]=3 then
begin
WriteLn(Datei, '3 '+ inttostr(Integer(form1.ButtonType1[i]) ));
end;
if form1.KlickType[i]=4 then WriteLn(Datei, '4 '+form1.TexttoType[i] );
end;
CloseFile(Datei);
end;
Es entsteht eine Fehlermeldung in der markierten Zeile