Record in Datei speichern

[Volker Z.]

Zitat:

Projekt projekt1 hat Exception-Klasse>>External:
SIGSEGV<< ausgelöst.

Innerhalb der procedure ZieleErfassen steht noch immer der erneute Aufruf ZieleErfassen. Endlos-Rekusrsion und damit die Exception.

Gruß

[Volker Z.]

Habe ich vorhin noch übersehen: Der zweite with-Block kann mit "ZielListe" nichts anfangen, wenn dann muss es schon
[B]with[/B] Liste [B]do[/B] heißen.

Gruß

[EMS]

ah sehr gut danke euch
jetzt geht es.

Mhh jetzt sieht die Datei aber so aus:
DresdenðÊÙ4ê†àÙ0è 0@Berlin*Š X:Ýìé €E@AachenÔ:Ý  „ê `c@

ist das richtig?
müsste das nicht
Dresden
16.00
Berlin
43.00
Aachen
155.00
aussehen?

was muss ich denn machen damit das wieder so wird?

[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?

[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?