Teilstring suchen

[DeddyH]

Du hast den Rückgabewert ja nicht ausgewertet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var bla: TStellen;
begin
  bla := GetPosAndCount('abcdddef','d');
  ShowMessage(Format('Position %d, Anzahl %d',[bla.First,bla.Count]));
end;

[djpaull]

Aja! Danke! Es funzt Ist bei mir Seltenheit.

[marabu]

Moin,

hier noch eine kleine Detail-Studie:

Delphi-Quellcode:

function PosChars(c: Char; const s: string; var count: Integer): Integer;
begin
  Result := Pos(c, s);
  count := Result div 1;
  while (count > 0) and (count <= Length(s)) and (s[count] = c) do
    Inc(count);
  Dec(count, Result);
end;

Freundliche Grüße

[p80286]

@Marabu

warum

Zitat:

count := Result div 1;

?

Hat
count := Result; nicht den gleichen Effekt?

Gruß
K-H

[marabu]

Wer von euch hat das DIV da hingeschrieben?

Wenn ich den erwische ...