Problem mit Array

[DeddyH]

Ich weiß nicht, ob ich den Sinn der Funktion richtig verstanden habe, aber versuch es mal so (ungetestet):

Delphi-Quellcode:

function StrToName(st : String): String;
var
ii : integer;
begin
  Result := '';
  ii:=0;
  while ii < High(TName) do begin
    if st = TName[ii].s then begin
      result:=InttoStr(TName[ii].id);
      break;
    end;
    inc(ii);
  end;
end;