Stringbearbeitung

[Steve]

Hi,

nicht getestet, aber sowas in der Richtung sollte funktionieren:

Delphi-Quellcode:

Function GetEnd(CONST aCheckString: String) : Integer;
var
  ii, jj : Integer;
 // ii : Fundstelle von '00'
 // jj : Hilfswert für "Offset" in PosEx
begin
  ii := 0;
  jj := 0;
  REPEAT
    jj := ii + 1;
    ii := PosEx('00',aCheckString,jj); 
  UNTIL (ii=0) OR Odd(ii); 
  result := (ii+1) DIV 2; // 2-er Blöcke "zusammenfassen" 
end;

edit: Davon ausgehend, dass keine Leerzeichen drin sind...
edit: Deklarationen vergessen

Gruß
Stephan