Registriert seit: 22. Jul 2007
Ort: Carlsberg
445 Beiträge
Delphi 2009 Professional
|
Re: Substring Problem
22. Aug 2009, 16:42
So hab mal mich um dein Problem gekümmert ![Coder](images/smilies/icon_user.gif) 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
Nickel "Lebe und denke nicht an morgen"
Zitat aus dem gleichnamigen Bollywoodfilm.
|
|
Zitat
|