Record property über Variable aufrufen

[Bjoerk]

So wie ich die Sache sehe, ist _RAdresse doch eh unitglobal bzw. CDatabase global?

Dann halt so?

Delphi-Quellcode:

function {CDatabase.}GetSearchString(const SearchFlag: TSearchFlag): string;
begin
  case SearchFlag of
    sfVorname:
      Result :=  _RAdresse.Vorname;
    ..
  end;
end;

Delphi-Quellcode:

  If GetSearchString(SearchFlag) = SearchString then // Um diese Zeile geht es

[Immortalem]

Ok es wäre eine Lösung für dieses Problem, aber wie ich bereits oben schrieb suche ich eine Lösung die aussieht wie von mir vorgeschlagen, da ich das Problem auch an anderen Stellen habe, in dem die bisherigen Lösungsansätze einfach scheitern.

[Bjoerk]

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

[p80286]

Eine weitere Möglichkeit wäre es innerhalb des Records einen Pointer auf den Vergleichstring mit sich zu führen, nur ist es recht sinnvoll, diesen dann mit Hilfe von

Delphi-Quellcode:

case

zu definieren:
(Pseudocode)

Delphi-Quellcode:

Type
  tstrng50 = string[50];
  tmyrecord = name : tstrng50;
              vorname : tstrng50;
              vgl : ^tstrng50;
  end;



function Vergleiche:boolean;
begin
   case v of
     name : myrecord.vgl:=@myrecord.name;
     .....
   end;  
....
   result:=myrecord.vgl^=vergleichstring;
...

Gruß und guten Rutsch
K-H