Stringbearbeitung

[Steve]

Hi,

Delphi-Quellcode:

function GetIndex00(const aCheckString: String) : Integer;
var
 ii, jj : integer;
begin
  ii:=1; // Beim ersten Zeichen beginnen
  jj:=0; // Bisher keine Fundstelle
  repeat
    // Zeichenkette prüfen
    if copy (aCheckString,ii,2) ='00' then
      jj:=ii;  // Fundstelle merken
    inc(ii,2); // 2 Zeichen weiter
  until (odd(jj)) or (ii>=length(aCheckString));
  // 2-er Blöcke
  result := (jj+1) div 2;
end;

Damit kann die '00' auch mitten im String stehen, sie muss bloß innerhalb eines '2er-Blocks' stehen.


PS: "GetIndex" liefert bei '112233405500' 5 zurück, obwohl '00' der sechste Block ist!

Gruß
Stephan