Thema: Delphi Datei laden

Einzelnen Beitrag anzeigen

delphidummy

Registriert seit: 7. Okt 2008
13 Beiträge
 
#1

Datei laden

  Alt 12. Okt 2008, 10: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]
  Mit Zitat antworten Zitat