AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Substring Problem

Ein Thema von PhilmacFLy · begonnen am 20. Aug 2009 · letzter Beitrag vom 22. Aug 2009
 
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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz