hey,
ich hab diesen code und möchte für S1_1 die stelle wo das erste '/' haben für S1_2 die Zweite Stell ect.
aber es funktioniert nicht
könntet ihr euch das mal angucken ?
hier ist mein code
Delphi-Quellcode:
procedure Schnippeln (Stringlist : TStringlist ) ;
var
S1_1, S1_2 : Integer ;
S2_1 , S2_2 : Integer ;
S3_1 , S3_2 : Integer ;
S4_1 , S4_2 : Integer ;
i : Integer ;
zähler : Integer ;
begin
zähler := 0;
For i := 1 To Length(Stringlist.Text) do
begin
Zähler := PosEx(Stringlist.Text,'/', Zähler);
case Zähler of
1 : S1_1 := i;
2 : S1_2 := i;
3 : S2_1 := i;
4 : S2_2 := i;
5 : S3_1 := i;
6 : S3_2 := i;
7 : S4_1 := i;
8 : S4_2 := i;
end;
inc(Zähler)
end;
end ;
danke schonmal
[edit=Matze]"PosExt" im Titel durch "PosEx" ersetzt, damit man über die Suche auch was findet. MfG, Matze[/edit]