Substring Problem

[PhilmacFLy]

Zitat von NickelM:

So hab mal mich um dein Problem gekümmert und habs hinbekommen xD

Delphi-Quellcode:

procedure TForm1.GenerateNicks(StrLine: String);
var
LineEnd, Nickoffset1,Nickoffset, Channeloffset: Integer;
Nicks: string;
begin
ChannelOffset := Pos(':', StrLine)+1;
NickOffset := PosEx(' ', StrLine, ChannelOffset);
Nicks := Copy(StrLine, ChannelOffset, Length(StrLine)- ChannelOffset);
//Wenn du die einzelnen Namen haben willst
Nicks := StringReplace(Nicks,' ',#$D#$A,[rfReplaceAll]);
ListBox1.Items.Text := Nicks;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Pos353,PosLineEnd : Integer;
begin
Pos353 := Pos('353', Memo1.Lines.Text);
PosLineEnd := PosEx(#$D#$A,Memo1.Lines.Text,Pos353)-1;
GenerateNicks(Copy(Memo1.Lines.Text,Pos353,PosLineEnd-Pos353));
end;

end.

Ich hoffe ich konnte dir helfen. Habs sogar getestet bei mir funkts

Jo danke. Nur hab ich gesehen das -1 muss weg weil sonst der nick abgeschnitten wird.