AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Substring Problem

Ein Thema von PhilmacFLy · begonnen am 20. Aug 2009 · letzter Beitrag vom 22. Aug 2009
Antwort Antwort
Seite 4 von 4   « Erste     234
Benutzerbild von PhilmacFLy
PhilmacFLy

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

Re: Substring Problem

  Alt 22. Aug 2009, 15:42
Delphi-Quellcode:
procedure Tform2.GenerateNicks(Linend: Integer);
var
LineEnd, Nickoffset, Channeloffset: Integer;
Nicks: string;
begin
ChannelOffset := Pos('#', Memo2.Lines.Text);
NickOffset := PosEx(' ', Memo2.Lines.Text, ChannelOffset) + 1;
Nicks := Copy(Memo2.Lines.Text, NickOffset, LineEnd - NickOffset);
end;

procedure Tform2.list;
var
str: String;
i: Integer;
begin
for i := 0 to Memo2.Lines.Count - 1 do
  if Copy(Memo2.Lines[i]) = '353then //Hier kommt der Fehler
    GenerateNicks(Memo2.Lines[i]);
end;
[DCC Fehler] tool_chat.pas(74): E2010 Inkompatible Typen: 'Integer' und 'string'
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
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.557 Beiträge
 
Delphi 11 Alexandria
 
#32

Re: Substring Problem

  Alt 22. Aug 2009, 16:03
Wie wäre es denn, wenn Du mal in die Hilfe zu Copy() schaust, dann siehst Du selbst, was da falsch ist
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
NickelM

Registriert seit: 22. Jul 2007
Ort: Carlsberg
445 Beiträge
 
Delphi 2009 Professional
 
#33

Re: Substring Problem

  Alt 22. Aug 2009, 16:42
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
Nickel
"Lebe und denke nicht an morgen"
Zitat aus dem gleichnamigen Bollywoodfilm.
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#34

Re: Substring Problem

  Alt 22. Aug 2009, 17:17
Zitat von PhilmacFLy:
Delphi-Quellcode:
procedure Tform2.GenerateNicks(Linend: Integer);
var
LineEnd, Nickoffset, Channeloffset: Integer;
Nicks: string;
begin
ChannelOffset := Pos('#', Memo2.Lines.Text);
NickOffset := PosEx(' ', Memo2.Lines.Text, ChannelOffset) + 1;
Nicks := Copy(Memo2.Lines.Text, NickOffset, LineEnd - NickOffset);
end;

procedure Tform2.list;
var
str: String;
i: Integer;
begin
for i := 0 to Memo2.Lines.Count - 1 do
  if Copy(Memo2.Lines[i]) = '353then //Hier kommt der Fehler
    GenerateNicks(Memo2.Lines[i]);
end;
[DCC Fehler] tool_chat.pas(74): E2010 Inkompatible Typen: 'Integer' und 'string'
Naja Memo2.Lines[i] ist ein String (und zwar der der Zeile). GenerateNicks selber will aber einen Integer, was ich aber nicht so vorgesehen habe. GenerateNicks sollte einen String bekommen! Und zwar diesen: "353 Testnick = #Königlich-Preußisches-Inf.Reg :Testnick ~PhilmacFLy"
Das heißt du brauchst "LineEnd" nicht, weil das ja dann Length(<Zeilentext>) ist.

MfG
xZise
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat
Benutzerbild von PhilmacFLy
PhilmacFLy

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

Re: Substring Problem

  Alt 22. Aug 2009, 17:46
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.
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
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 06:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz