Suche nach einem Zeichen in einem Edit

[himitsu]

Aus der OH:

Zitat:

Die Funktion gibt den Indexwert des ersten Zeichens innerhalb des angegebenen Teil-Strings zurück, der in einem String vorkommt.

Pos mach im Grunde genommen nichts anderes, als die erste Position eines bestimmten Zeichens oder Zeichenfolge in eine Zeichenfolge zu suchen.

Für ein Zeichen sehe das zum Beispiel so aus:

Delphi-Quellcode:

Function Pos(C: Char; S: String): Integer;
  Var i: Integer;

  Begin
    Result := 0;
    For i := 1 to Length(S) do 
      If S[i] = C Then Begin
        Result := i;
        Break;
      End;
  End;

[edit=Sharky]Quote-Tags korrigiert. Mfg, Sharky[/edit]

[Nikolas]

Vielen Dank

Jetzt kann ich dass dann auch selbst benutzen und damit dann meinen Quelltext etwas übersichtlicher und kürzer gestalten.

:dp: :love: :dp:

THXbyToX