Hi leute!
ich bin über ein seltsammes problem gestoßen, und das sieht wie folgt aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm.Button1Click(Sender: TObject);
var s:string; von, bis:integer;
begin
s:='tr lsdfsg trz tr asdfgadg trz tr sdf trz tr sdfsdf trz';
repeat
von:=pos('tr',s)+2;
bis:=pos('trz',s);
Memo1.Lines.add(copy(s,von,bis-von));
s:=copy(s,bis+3,length(s)-bis-3);
until pos('trz',s)=0;
end; |
in meiner schleife sollten praktisch alle strings zwischen "tr" und "trz" ausgegeben werden, jedoch fehlt immer die letzte angabe, also "sdfsdf".
ergänze ich den string mit irgendeinen scheiß das mindestens 2 buchstaben hat funktioniert es wieder.
s:='tr lsdfsg trz tr asdfgadg trz tr sdf trz tr sdfsdf trz sd';
kann mir einer sagen warum???
oder hab ich so ein brett vorm kopf das ich den fehler net sehe?
mfg huhn
Moderiert von 
Klabautermann: Topic aus Sonstiges verschoben am Do 06.10.2005 um 23:15
