Structura CASE pentru siruri de caractere

[DarkByte]

Cei care ati folosit structura Case, probabil ca ati incercat macar o data sa verificati siruri de caractere in genul

Cod:

Case Nume Of
  'Andrei' : bla bla ...
  'Maria'  : bla bla ...
end;

, doar pentru a primi eroare de compilare, fiindca aceasta structura nu lucreaza decat cu tipuri ordinale.

So ... o solutie simpla de a putea folosi Case pentru siruri de caractere e mai jos:

Cod:

function StringIndex(const SearchString: string; StrList: array of string): Integer;
var I: Integer;
begin
  Result:= -1;
  for I:= 0 to High(StrList) do
    if CompareText(SearchString, StrList[i]) = 0 then
      begin
        Result:= I;
        Break;
      end;
end;

Se foloseste in felul urmator:

Cod:

Case StringIndex(Nume, 'Andrei', 'Maria', 'Alina') Of
-1 : {nu s-a gasit nici o potrivire};
 0 : {cod pentru Andrei};
 1 : {cod pentru Maria};
 2 : {cod pentru Alina};
end;

Spor la programat

[SkullAds]