Also ich habe so einen ich nenns mal "Trecord" so stehst eim Type :
Delphi-Quellcode:
type
tDaten = record
WinFolder: string[60];
LastIp: string[60];
soundpfad: string[60];
sound: string[1];
soundAn: string[1]
end;
...
public
{ Public-Deklarationen }
dateiname:string;
datei: file of tDaten;
daten: tDaten;
end;
...
so ... und dann un das zu nutzen hab ich's so gemacht
Delphi-Quellcode:
procedure TFormConfig.ButtonNeueDateiClick(Sender: TObject);
begin
if savedialog1.execute then
begin
if dateiname <> '' then closefile(datei);
dateiname:=savedialogdatei.filename;
assignfile(datei,dateiname);
rewrite(datei);
timer2.Enabled:=true ;
buttonaenderungenspeichern.enabled:=true;
end
end;
procedure TFormConfig.Timer2Timer(Sender: TObject);
begin
timer2.Enabled:=false;
try
reset(datei);
seek(datei, filesize(datei));
edit1.text:='';
edit2.text:='';
edit3.text:='';
edit4.text:='';
daten.winfolder:=edit1.text;
daten.Lastip:=edit2.text;
daten.soundpfad:=edit3.Text;
daten.soundan:=edit4.Text;
daten.sound:=editort.Text;
write(datei,daten);
edit1.setfocus
except
showmessage('Fehler: Zuerst Datei öffnen!')
end
end;
// bitte nicht über die namen der strings wundern
so und jetzt will ich eigentlich nur dass das programm die datei eben automatisch erstellt
