Thema: Delphi Substring Problem

Einzelnen Beitrag anzeigen

Benutzerbild von PhilmacFLy
PhilmacFLy

Registriert seit: 20. Jan 2008
Ort: Nürnberg
340 Beiträge
 
FreePascal / Lazarus
 
#1

Substring Problem

  Alt 20. Aug 2009, 19:41
Also mein Problem ist folgendes:
Ich wollte eine kleine IRC Applikation schreiben, doch leider ist in INDY 10 ja die Komponente nicht wirklich fertig, daher musst ich mir eine eigene Prozedure schreiben die eine Liste der Nicks erstellt.
Dies ist der momentane Code:

Delphi-Quellcode:
procedure Tform2.list;
var
i1, i2: Integer;
s: String;
begin
 i1 := Pos('355', Memo2.Lines.Text);
 i2 := Pos('366', Memo2.Lines.Text);
 inc(i1, 3);
 inc(i2, -3);
 s := Copy(Memo2.Lines.Text, i1, (i1-i2));
showmessage(s);
//bla bla
end;
Jetzt ist es so in der Raw Message sieht das so aus:
Delphi-Quellcode:
353 Testnick = #Königlich-Preußisches-Inf.Reg :Testnick ~PhilmacFLy
366 Testnick #Königlich-Preußisches-Inf.Reg :End of /NAMES list.
Deswegen wollte ich den Teil zwischen den Zahlen kopieren, und dann den vorderen Teil löschen, um es anschließend auf eine Listbox zu übertragen.

Leider wird schon in der showmessage nix angezeigt.
Leider hab ich im Moment keine Ahnung woran es liegt.
Philipp N.
"Programmiern ist wie küssen:
Mann kan darüber reden, mann kann es beschreiben,
aber man weiss erst, was es bedeutet,
wenn man es getan hat"
  Mit Zitat antworten Zitat