String durchsuchen?

[Christian18]

Hallo,

ich habe dir da mal ein kleines Beispiel programmiert. Um die Position eines Buchstaben in einem String herrauszufinden, kannst du folgende Function verwenden:

Delphi-Quellcode:

function GetCharPosition(AZeichenkette: String; AZeichen: Char) : Integer;
begin
  Result:=Pos(AZeichen, AZeichenkette);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetCharPosition('Hallo', 'a')));
end;

MFG Christian18