Forum: Programmieren allgemein
by Steve,
26. Jan 2005
Hi,
mir ist grad aufgefallen, dass das mitm Index bei ibp gestimmt hat, bei mir aber nicht (hab bei Index=1 statt =0 losgezählt :angel2: )
Gruß
Stephan :dance:
Forum: Programmieren allgemein
by Steve,
26. Jan 2005
Hi,
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
Forum: Programmieren allgemein
by Steve,
26. Jan 2005
Hi,
nicht getestet, aber sowas in der Richtung sollte funktionieren:
Function GetEnd(CONST aCheckString: String) : Integer;
var
ii, jj : Integer;
// ii : Fundstelle von '00'
// jj : Hilfswert für "Offset" in PosEx
begin
ii := 0;