Problem mit Array

[Gehstock]

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;

Delphi-Quellcode:

 Memo1.Lines.Add('Name : '+StrToName(s));

da wird aber nichts angezeigt

[Dax]

Nachts ist es kälter als draussen.

Wie sollen wir dir helfen, wenn du uns keine Informationen gibst? :wall:

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

[Gehstock]

Zitat:

Zitat von Dax

Nachts ist es kälter als draussen.

Aso?


Warum wird nix angezeigt was brauchst du denn noch ich suche im Array nach "s" wenn es gefunden wird so ist das Result von StrtoName die Nebenstehende ID

geht aber irgendwie nicht

[DeddyH]

Zitat:

Zitat von Gehstock

geht aber irgendwie nicht

Mit meiner Variante auch nicht?

[Gehstock]

Ja so Passt das Danke