Auslesen, wo man sich in einem Memo befindet...

[XaRidA_THEONLY]

Hallo zusammen,

und wiedereinmal ist es so weit...

Ich habe ein Problem und weiss nicht wie weiter.. :gruebel:

Also: ich suche in einem Memo einen bestimmten Text ahnhand der Position, das funktioniert auch super, doch wie kann ich mir nun, wenn er den Text gefunden hat anzeigen lassen auf wecher Zeile sich dieser befindet???

Oder wie kann ich direkt nach einer bestimmten Zeile suchen???

Kann mir evt. jemand helfen???

Wäre echt super.


Thanks XaRidA :angel:

[Stevie]

Der Text einer TMemo-Komponente wird intern als TStrings gespeichert. Guck dir dazu mal die Member-Funktion IndexOf von TStrings an.

[XaRidA_THEONLY]

Jetzt habe ich jedoch wieder das gleiche Prob. wie vorher.

Ich finde zwar meine Zeile, jedoch weiss ich immer noch nicht, wie ich mir anzeigen lassen kann, auf welcher Zeile sich der Text befindet...

Übrigens, wais jemand wie ich anhand einer Position die Zeile in der sie sich befindet herausfinden kann?????

XaRidA

[Stevie]

Ok, guckst du hier

[himitsu]

Also zum auslesen der aktuellen Postition hatte ich mir mal sowas gebastelt ... statt Memo1.SelStart könnte man ja auch 'ne andere Position verwenden.

Delphi-Quellcode:

  i := 0;  i2 := 0;
  While i < Memo1.Lines.Count do Begin
    Inc(i2, Length(Memo1.Lines.Strings[i]));
    If i2 < Memo1.SelStart Then Break;
    Inc(i);
  End;

  > Die aktuelle Zeile ist i.

Aber hier könnte man es so machen - einfach jede Zeile einzeln durchsuchen :zwinker:

Delphi-Quellcode:

  If Memo1.Lines.IndexOf('dein gesuchtes Wort') > 0 Then Begin
    For i := 0 to Memo1.Lines.Count - 1 do Begin
      If Pos('dein gesuchtes Wort', Memo1.Lines.Strings[i]) > 0 Then Break;
      Inc(i);
    End;
    > Die Position ist i.
  End Else > nichts gefunden

[XaRidA_THEONLY]

Hey Merci...
das funzt!!!!! :thumb:

XaRidA :angel: