Einzelnen Beitrag anzeigen

Mojito

Registriert seit: 29. Okt 2012
39 Beiträge
 
#3

AW: Speichern einer Textdatei

  Alt 15. Dez 2012, 20:09
Ups da hatte ich mich verschrieben, es bezog sich auf die TypedToStr.Hier ein Auszug, die weiteren case-Anweisungen sind ähnlich


Delphi-Quellcode:
function TypedToStr(Vtyped: TAdresse): string;
begin
  TypedyToStr := '';
  case Vtyped.addressType of
    House:
      TypedToStr := 'H,' + Vtyped.street + ',' + Vtyped.city + ',' + inttostr(Vtyped.number);
  Mit Zitat antworten Zitat