Thema: Delphi Problem mit Array

Einzelnen Beitrag anzeigen

Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#1

Problem mit Array

  Alt 10. Feb 2008, 16:34
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
Marcel
  Mit Zitat antworten Zitat