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);