Problem mit PosEx

**gangs-taas**

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

zusammenfalten · markieren

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]

Problem mit PosEx

Problem mit PosEx

Forumregeln