Richedit.Findetext liefert immer "-1"

[Lyan]

Hallo,

ich kann mir nicht erklären warum, aber findetext liefert immer "-1" zurück!

Code:

tsearchs := [stwholeword];
ipos := RichEdit2.FindText(':',0,length(richedit2.Lines[i]), tsearchs);

Jemand eine Idee?


MfG

lyan

[Coffeecoder]

Hey,

Ich habe keine Möglichkeit nachzusehen, aber hast du bei length folgendes versucht:

Code:

tsearchs := [stwholeword];
ipos := RichEdit2.FindText(':',0,length(richedit2.Lines[i])-1, tsearchs);

[himitsu]

Gibt es in der angegebenen Zeile überhaupt einen Doppelpunkt, vor und hinter dem sich keine alphanumerischen Zeichen befinden?

[franktron]

Das geht doch garnicht so

Delphi-Quellcode:

tsearchs := [stwholeword];
ipos := RichEdit2.FindText(':',0,length(richedit2.Lines[i]), tsearchs);

Damit such der doch immer nur in der Ersten Zeile und nicht in den Anderen.

[himitsu]

Zitat:

Zitat von franktron (Beitrag 1143561)

Damit such der doch immer nur in der Ersten Zeile und nicht in den Anderen.

Hatte ich auch erst falsch übersehn und hatte statt "angegebenen" ebenfalls "erste" geschrieben. :oops:

Nicht die Erste, sondern die i-te :zwinker:

[mikhal]

funktioniert denn das?

Delphi-Quellcode:

tsearchs := [stwholeword];
ipos := RichEdit2.FindText(':',0,length(richedit2.Text) - 1, tsearchs);

Grüße
Mikhal

[himitsu]

Zitat:

Zitat von mikhal (Beitrag 1143567)

funktioniert denn das?

Delphi-Quellcode:

tsearchs := [stwholeword];
ipos := RichEdit2.FindText(':',0,length(richedit2.Text) - 1, tsearchs);

Grüße
Mikhal

nicht

Delphi-Quellcode:

- 1

, denn es ist nicht

Delphi-Quellcode:

das, von, bis, wie

, sondern

Delphi-Quellcode:

das, von, Anzahl, wie

[Lyan]

Mein Suchstring sieht so aus:

Code:

172.88.21.76:hallo:okay

[himitsu]

Und demnach ist die -1 auch vollkommen korrekt.

siehe #3
Die Antwort auf meine Frage lautet nämlich "nein".

[Lyan]

merke grade das es nicht geht.

Hat jemand eine Idee?

Ich hatte es so vor:

Delphi-Quellcode:

ipos := RichEdit2.FindText(':',0,length(richedit2.Lines[i]), tsearchs);
    sIP := copy(Richedit2.Lines[i],0,ipos-1);
    ipos := RichEdit2.FindText(':',length(sIP)+1,length(richedit2.Lines[i]), tsearchs);
    sUsr := copy(richedit2.lines[i],length(sIP)+1,ipos-1);
    iPos := Pos(#$D#$A,richedit1.lines[i]);
    spwd := copy(richedit2.Lines[i],length(sip)+length(susr)+2,ipos-1);
    richedit1.Lines.Delete(i);

MfG

[himitsu]

#$D#$A ... kennst du schon sLineBreak? (wobei du auch direkt die Zeilenlänge hättest nehmen können).

Einzelne Zeilen haben garantiert keinen Zeilenumbruch am Ende stehen.

Da es dir ja auf Geschwindigkeit ankommt:
- ließ die Zeile nur einmal aus dem RichEdit aus und speichere sie in einer Stringvariable
- und schon kannst du auch Pos und PosEx verwenden

Warum ':' nicht gefunden wird, hab ich dir doch schon erklärt? (deine Suchparameter stimmen nicht)

Und was hast du gegen die fertigen/funktionierenden Lösungen, welche man dir im anderem Thread genannt hat? (Explode und Co.)

[Lyan]

Es hat auch schon funktioniert.
Hab alle Absätze mit einem ":" ersetzt und dann in einen String geschrieben.
Dann mit Pos immer den nächsten Doppelpunkt gesucht.

Dann habe ich mich gefragt:"Was passiert wenn eine Zeile in der Liste falsch ist"?

Und ja, das wäre schon sehr hart codiert, wenn ich das so gelassen hätte.

Und da ich FindText anders in Erinnerung hatte, hab ich es eben so versucht.

Aber du hast mich gradr nochmal auf eine andere Idee gebracht, danke!
MAl versuchen ob es so geht!


MfG

[Mavarik]

Hattest Du das nicht schon mit einem Memo versucht?

Wieso Findtext, wenn Du eh auf Lines[x] gehst?
Lines ist der native Text...

Und im Rich sucht man mit:

Delphi-Quellcode:

RichEdit1.FindText('LALALA',0,RichEdit1.GetTextLen,[]);

aber nicht in Lines...

Mavarik