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