Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
31. Dez 2012
Scherzkeks. Wenn fuctions innerhalb von Records in D5 nicht gehen, dann geht’s so halt nicht. Eine property müßte ja auch (hier) auf eine function zurückgreifen. Oder mach aus dem Record eine Klasse. Oder geh einfach Silvester feiern, so wie ich jetzt. Gruß und guten Rutsch :)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
31. Dez 2012
So wie ich die Sache sehe, ist _RAdresse doch eh unitglobal bzw. CDatabase global?
Dann halt so?
function {CDatabase.}GetSearchString(const SearchFlag: TSearchFlag): string;
begin
case SearchFlag of
sfVorname:
Result := _RAdresse.Vorname;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
30. Dez 2012
Achso. Jetzt versteh' ich. Nein, mit einer property geht das meines Wissens nicht, hierzu ist eine function erforderlich.
Zum Beispiel so:
type
TSearchFlag = (sfVorname, sfName, sfStrasse, sfOrt, sfTel, sfMail);
TAdresse = record
..
function ToSearchIn(const SearchFlag: TSearchFlag): string;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
30. Dez 2012
Ich hab keine Ahnung was du möchtest. :gruebel:
Das ?
type
TAdressString = string;
TAdresse = record
Vorname, Name, Strasse, Ort, Tel, Mail : TAdressString;