Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mojito,
16. Dez 2012
So, es hat geklappt danke danke.:thumb:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mojito,
16. Dez 2012
Wird die typisierte Datei nicht mit:
while not eof(tempFile) do
eingelesen?
Bekomme für das write(tempTypeToText,tempText);
immer noch den Fehler:
UTxt.pas(128): E2054 Ungültiger Typ in Write/Writeln-Anweisung
Muss ich Newfile vielleicht auch erstmal mit AssignFile öffnen oder so?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mojito,
15. Dez 2012
Ups da hatte ich mich verschrieben, es bezog sich auf die TypedToStr.Hier ein Auszug, die weiteren case-Anweisungen sind ähnlich
function TypedToStr(Vtyped: TAdresse): string;
begin
TypedyToStr := '';
case Vtyped.addressType of
House:
TypedToStr := 'H,' + Vtyped.street + ',' + Vtyped.city + ',' + inttostr(Vtyped.number);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Mojito,
15. Dez 2012
Hall liebe Delphi Freunde,
Ich möchte eine typisierte Datei in eine Textdatei konvertieren und dann abspeichern. Leider ist mir das nicht geglückt. Und zwar erhalteich bei tempTypetoText:=entryToStr(NewFIle) die Fhelermeldung: Inkompatible Typen "TAdresse" und "Text". Die Funktion TypedToStr sieht wie folgt aus:
function TypedToStr(entry: TAdresse): string;
NEWFile ist vom Typ file of...