Zitat von
Kendor:
nun frage ich nach tag ab (btw. gibts keine möglichkeit auch nach strings eine case abfrage zu machen? wie c++?) (content beinhaltet den eintrag zwischen den tags)
Hi,
von Haus aus kann man case nicht mit Strings verwenden, höchstens mit Char.
Allerdings ist es mit einem Trick doch möglich, case auf Strings anzuwenden. Dazu braucht man eine zusätzliche Funktion:
Delphi-Quellcode:
function StrIdx(aStr: string; strArr: array of string): Integer;
var i: Integer;
begin
Result:= -1;
for i:= 0 to High(strArr) do
if (aStr=strArr[i]) then
begin
Result:= i;
Break;
end;
end;
Danach kann man folgendes verwenden:
Delphi-Quellcode:
const AlleMeineStrings: array [0..100] of string = ( 'ID', 'Number', ... );
...
begin
...
case StrIdx(CurrTag, AlleMeineStrings) of
0: ShowMessage('ID-Tag');
1: ShowMessage('Number-Tag');
2: ShowMessage('NochEin-Tag');
...
-1: ShowMessage('Kein Tag');
end;
end;
MfG
Binärbaum