Forum: Object-Pascal / Delphi-Language
Delphi
by Cyf,
12. Okt 2008
Naja in der Schule machen wir auch nur die "alte" Dateiverarbeitung, warum auch Streams benutzen, die ihre Zugriffsrechte nicht global definieren und flexibel sind, wenns kompliziert geht. :wink:
Aber wir benutzen ja auch Strings in der while(foo) do
begin
Str:= Str + 'bar';
end; Richtung, war immer der Meinung das Delphi zwar alles recht einfach macht, aber leicht zu einem schlechten...
Forum: Object-Pascal / Delphi-Language
Delphi
by Cyf,
12. Okt 2008
(mal reformatiert)
//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);