Zeilennummer einer Zeichenkette heausfinden?

[capo]

HIHO :-D ,

wie kann ich in einem memo die zeilennummer einer zeichenkette heausfinden?
kommt nur 1x vor.


gruss
capo

[arbu man]

Delphi-Quellcode:

  zeilennumer:= memo.lines.indexof('der zeilen text');

[fkerber]

Hi!

Schau mal:

Zitat:

Aktuelle Zeile und Spalte in Memos

Durch zwei Aufrufe der API-Funktion "SendMessage" erfaehrt man die aktuelle Position des Cursors in Memo- oder RichEditfeldern. Im folgenden Beispiel werden die zwei Aufrufe im OnKeyDown-Ereignis ausgefuert und die Angabe von Spalte und Zeile in einer StatusBar angezeigt.

Delphi-Quellcode:

Procedure TForm1.Memo1KeyDown(Sender: TObject; Var Key: Word; Shift: TShiftState);
Var Zeile, Spalte, ChrVor: LongInt;
Begin
  Zeile := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, SelStart, 0);
  ChrVor:= SendMessage(Memo1.Handle, EM_LINEINDEX, Zeile, 0);
  Spalte:= SelStart - ChrVor + 1;
  StatusBar1.SimpleText:= SysUtils.Format('%4d:%4d', [Zeile + 1, Spalte]);
End;

Quelle: http://www.rudolf-software.de/delphitips.html


Ciao Frederic

[capo]

hi

irgendwie bekomme ich immer -1 angezeigt, mach ich was falsch?

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
var
zeilennumer:integer;
begin
zeilennumer:= advmemo1.lines.indexof('Test');
showmessage(inttostr(zeilennumer));
end;

[capo]

danke, aber ich muss doch zuerst die position des wortes (zeichenkette) haben dann will ich den cursor an die stelle setzen

[xaromz]

Hallo,

zuerst mal, Du kannst Deine Beiträge editieren.

Nun zu Deinem Problem: IndexOf gibt nur eine Zeilennummer zurück, wenn der übergebene String exakt der Zeile entspricht. Das wird bei Dir nicht der Fall sein.
Versuch mal Folgendes:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject); 
var 
  ZeilenNummer: Integer;   
begin
  for ZeilenNummer := 0 to advmemo1.lines.Count - 1 do // Sämtliche Zeilen durchgehen
    if Pos('Test', advmemo1.Lines[ZeilenNummer]) > 0) then // ist gesuchter Begriff in Zeile?
    begin
      ShowMessage(IntToStr(ZeilenNummer)); // Ausgeben..
      Exit; // ...und raus
    end;

  ShowMessage('Zeile nicht gefunden!'); // Nichts gefunden
end;

Gruß
xaromz

[capo]

danke für deine hilfe und erklärungen, das funktioniert :-D

[capo]

weiß jemand warum mit dem beispiel oben kein datum ausgelesen wird in dem format?
21:05:57
bekomme die meldung:

Zitat:

---------------------------
Data
---------------------------
Zeile nicht gefunden!
---------------------------
OK
---------------------------

ist doch kein unterschied ob strings integer, oder doch?:gruebel:
gruss
capo

[marabu]

Hi,

wolltest du nicht das gefundene Wort markieren?

Delphi-Quellcode:

function FindFirst(memo: TMemo; search: String): Boolean;
var
  iStart: Integer;
begin
  search := AnsiLowercase(search);
  with memo do
  begin
    iStart := Pos(search, AnsiLowercase(Text));
    Result := iStart > 0;
    if Result then
    begin
      SelStart := Pred(iStart);
      SelLength := Length(search);
    end;
  end;
end;

Grüße vom marabu

[capo]

hallo marabu

stimmt, ich wollte dann sogar die ganze zeile markieren.
wie das mit dem memo gemacht wird hab ich schon rausbekommen.
ich muss nur noch wissen warum das beispiel oben keine uhrzeit findet.
funktioniert das bei dir?

gruss vom capo

[capo]

ist das richtig so?
irgendwie zeig es nix an.

Delphi-Quellcode:

function FindFirst(memo: TAdvMemo; search: String): Boolean;
var
  iStart: Integer;
begin
  search := AnsiLowercase(search);
  with memo do
  begin
    iStart := Pos(search, AnsiLowercase(Form1.Edit1.Text));
    Result := iStart > 0;
    if Result then
    begin
      SelStart := Pred(iStart);
      SelLength := Length(search);
    end;
  end;
end;

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
begin
FindFirst(Advmemo1,Form1.edit1.text);
end;

gruss, capo

[marabu]

Hallo,

mein Code funktioniert mit einem Memo und findet beliebige Zeichenketten - auch Uhrzeiten. Wenn er bei dir versagt, dann könnte das etwas mit der Komponente TAdvMemo zu tun haben. Probiere also zuerst mal mit einem TMemo und versuche dann erst die Anpassung an TAdvMemo.

Grüße vom marabu


PS: Manchmal ist es hilfreich Memo.HideSelection auf False zu setzen ...

[capo]

ich habs, es war mein fehler, alles funktioniert.
was nicht da ist kann man auch nicht finden

gruss, capo ...und danke