HIHO ,

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


gruss
capo

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

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.

markieren

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

hi

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

markieren

Delphi-Quellcode:

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

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

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:

zusammenfalten · markieren

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

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

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?
gruss
capo

Hi,

wolltest du nicht das gefundene Wort markieren?

zusammenfalten · 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

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