Record in Datei speichern

[DeddyH]

Wieso wirfst Du das with nicht raus? Wie Du siehst, stiftet es nur Verwirrung. Aber AssignFile und CloseFile sehe ich ja auch noch nicht, was soll's also

[EMS]

ich weiß nicht genau welche with du meinst?
Das mit dem Assignfile, closefile habe ich gerade geändert

[DeddyH]

Na, alle with.

Delphi-Quellcode:

procedure ZieleErfassen(var Liste: TZielListe);
begin
  Liste.Ziele[1].Ort:='Dresden';
  Liste.Ziele[1].Preis:=16.00;
  Liste.Ziele[2].Ort := 'Berlin';
  Liste.Ziele[2].Preis := 43.00;
  Liste.Ziele[3].Ort :='Aachen';
  Liste.Ziele[3].Preis := 155.00;
  ZielZahl := 3;
end;

So siehst Du doch gleich, was passiert und musst nicht überlegen, in welchem with Du gerade bist.

[EMS]

Ok das sieht besser aus.
Aber wie schon geschrieben der wunsch ist das wir das mit diesem with lösen sollen weil das ja jetzt ,,neu" ist bei uns.
Aber was ist mit der Datei?
Wie bekomme ich das hin das alles als lesbare Daten da drinne steht?

[DeddyH]

Wie jetzt? Eine typisierte Datei, die man mal eben im Editor anschauen kann? Wie soll das gehen, wenn man außer Strings noch andere Datentypen verwenden will?

[EMS]

Mhh das stimmt das macht ja nicht viel Sinn

[delnu]

Ohne daß ich sah, daß Du tatsächlich einen neuen Thread dazu aufgemacht hast, hatte ich Dir hier ein paar der Fehler erläutert. Einiges ( wie z.B. die nötige feste Länge des Strings ) wurde schon in diesem neuen Thread erläutert.

Ich weiß gar nicht, was DeddyH inmmer gegen "with" hat ! Sinnvoll angewandt, erleichtert es die Arbeit enorm.

[p80286]

Jedes with !!

und wenn Deine Daten so kryptisch ausschauen, dann liegt das daran, daß Du ein Record mit z.B. dem "preis" der eine real-Zahl ist, speicherst. Was Du erwartest ist das Ergebnis der Umwandlung Floattostring, das ist dann ein String und keine real-Zahl mehr.

Gruß
K-H

Oh zu spät....
Wie wäre es denn wenn Du einmal genau definierst was Du (oder Dein Lehrer) willst?