Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Zeiger/Pointer Frage (grosse Arrays) @cracks

  Alt 6. Apr 2005, 19:15
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
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat