Vortex 2.9.5 Documentation oder Beispiel Client gesucht

[Amnon82]

Arrg. Der String ist der Channel. Danke.

Hier der Code (Du lagst fast richtig ):

Delphi-Quellcode:

var
  X, Y, ActPos, PrevPos                 : Integer;
  sl2                                    : TStrings;
begin
  sl2 := TStringList.Create;
  Try
    // Öffne Datei in StringList


  sl2.Text := Vortex1.GetUsersFromChannel(listview1.Items[form1.listview1.itemindex].caption);
    // laufe durch die sl
    For Y := 0 To pred(sl2.Count) Do
    Begin
      // Spalte 0
      X := 0;

      PrevPos := 1;
      // suche das erste ","
      ActPos := PosEx(',', Sl2[Y], PrevPos);
      // verlasse die Schleife wenn kein "," mehr gefunden wurde
      While ActPos > 0 Do
      Begin
        // schreibe in die Listbox den Text zwischen dem vorherigen "," und dem gefundenen ","
        listbox3.items.add(Copy(sl2[Y], PrevPos, (ActPos - PrevPos)));
        // Postion des letzten Kommas
        PrevPos := succ(ActPos);
        // suche das nächste ","
        ActPos := PosEx(',', Sl2[Y], PrevPos);
        inc(X);
      End;
      // zum Schluss noch den Text ab dem zuletzt gefundenen Komma in die Listbox
      listbox3.items.add(Copy(sl2[Y], PrevPos, Length(sl2[Y])));

    End;
  Finally
    // Freigeben der sl
    FreeAndNil(SL2);

end;
end;