Record property über Variable aufrufen

[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 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