mengenarbeit mit strings

[fkerber]

Hi!

Einfaches Beispiel:

Delphi-Quellcode:

var
  Form1: TForm1;
  arr: array[0..2] of String = ('Test', 'zum', 'aa');


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
  for i:=0 to length(arr)-1 do begin
    if ('aa' = arr[i]) then showmessage(inttostr(i)+': gefunden');
  end;
end;

Ciao fkerber