Delphi-Quellcode:
rName = packed record
s : String;
id : integer;
end;
var
TName : array[0..82] of rName = ( //der rest ist gekürzt
(s:'Ford';id:256),
(s:'Opel';id:257));
versuche ich aufzurufen mit
Delphi-Quellcode:
function StrToName(st : String): String;
var
ii : integer;
begin
ii:=0;
while TName[ii].s<>st do begin
if st = TName[ii].s[ii] then begin
result:=InttoStr(TName[ii].id);
break;
end;
inc(ii);
end;
end;
Memo1.Lines.Add('Name : '+StrToName(s));
da wird aber nichts angezeigt