Registriert seit: 7. Okt 2008
13 Beiträge
|
Datei laden
12. Okt 2008, 11:47
Guten Morgen,
wir haben Probleme beim Öffnen einer von uns gespeicherten Datei. Das Speichern funktioniert, die Werte werden ein einer Textdatei abgespeichert. Wir wissen jetzt aber auch nich genau, was wir bei readln in die Prozedur hineinschreiben sollen...Ist wahrscheinlich eine blöde Fragen,aber wir kommen einfach nicht weiter
Delphi-Quellcode:
//Speichern unter - Funktion einrichten
procedure TForm1.Speichernunter1Click(Sender: TObject);
begin if SaveDialog1.execute then
begin assignfile (Datei, SaveDialog1.FileName);
rewrite (Datei);
writeln(Datei,editpalettenlast.text);
writeln(Datei,editlagerhoehe.text);
writeln(Datei,editregallaenge.text);
writeln(Datei,editpalettenanzahl.text);
writeln(Datei,editzellenbreite.Text);
writeln(Datei,edittyp.Text);
writeln(Datei,editkosteni.Text);
writeln(Datei,editkostenu.Text);
writeln(Datei,editgesamtkosten.Text);
writeln(Datei,editkostenpropalette.Text);
CloseFile(Datei);
end;
end;
procedure TForm1.ffnen2Click(Sender: TObject);
var Inhalt:string ;
begin
if opendialog1.execute then
begin
assignfile(Datei,opendialog1.filename);
reset(Datei);
readln(Datei,Inhalt);
CloseFile(Datei);
end;
end;
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]
|
|
Zitat
|