---

Her er en måde at bruge case statement med string istedet for numerisk...

//---------------------------------------------------//
function selectSTR(selector : string; caseList : array of string) : integer;
var
i : integer;
Found : Boolean;
begin
Found := False;
Result := -1;
i := - 1;
while not Found and (i < length(caseList)) do
begin
inc(i);
Found := CompareText(Sel, caseList[i]) = 0;
if Found then
Result := i;
end;
end;

{for eks.}
var
mySelector : string;
...
case selectSTR('Delphi', ['ASP', 'Delphi', 'PHP']) of
0 : mySelector := 'ASP';
1 : mySelector := 'Delphi';
2 : mySelector := 'PHP';
end;
...
//---------------------------------------------------//
Har du brug for yderligere info om at hvordan den skal bruges, kan du sende mig en email. Jeg skal nok uddybe det...

Hilsen
Lavang

---

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.