gerade geschriebenes wort erkennen

[Gentleman]

hi!

ich habe einen Richedit in den belibiger text eingegeben werden kann.ich möchte jetzt bei jedem tastendruck das gerade geschriebene wort erkennen. ich habe schon so einiges versucht...allerdings ohne erfolg. ich hoffe ihr könnt mir helfen.


thx im voraus!

[Dax]

Du könntest beim TRichedit.OnChange die aktuelle Zeile (zu bekommen pber CaretPos.Y) holen und dir das Wort bei CaretPos.X kopieren. Vielleicht so:

Delphi-Quellcode:

procedure TForm1.Richedit1Change(Sender: TObject);
var 
  Line, Word: string; 
  i, t: integer;
  Delimiters: set of Char;
begin
  Delimiters := [' ', ';', ',', '.', '-']; //Viel mehr Möglichkeiten..
  Line := Richedit1.Lines[Richedit1.CaretPos.Y-1];
  for i := Richedit1.CaretPos.X downto 1 do
    if Line[i] in Delimiters then Break;
  for t := Richedit1.CaretPos.X to Length(Line) do
    if Line[i] in Delimiters then Break;
  Word := Copy(Line, i, t-i);
end;

[Gentleman]

also irgendwie funzt das nich...oder bin ich jetzt zu blöd ?
wenn ich das ganze so ins OnChane schreibe dann bekomme ich eine Fehlermeldung, wegen dem Break-befehl.
muss ich da noch was ändern?

[Dax]

Irgendwie hab' ich da was durcheinander gebracht.. aber jetzt stimmts.

Delphi-Quellcode:

var
  Line, Word: string;
  i, t: integer;
  Delimiters: set of Char;
begin
  Delimiters := [' ', ';', ',', '.', '-']; //Viel mehr Möglichkeiten..
  Line := Richedit1.Lines[Richedit1.CaretPos.Y];
  for i := Richedit1.CaretPos.X downto 1 do
    if Line[i] in Delimiters then Break;
  for t := Richedit1.CaretPos.X to Length(Line) do
    if Line[t] in Delimiters then Break;
  Word := Copy(Line, i, t-i);
end;

[Gentleman]

erst mal vielen dank!das geschriebene wort wird jetzt erkannt. allerding bringt er mir jetzt eine fehlermeldung, wenn ich eine neue zeile beginne...

[Meflin]

ich glaube da hatten wir auch schon so manchen thread dazu...
allerdings muss ich gestehen dass ich nicht weis was man so als suchwort eintippen könnte
vielleicht findest du trotzdem was hier in der dp...

[Gentleman]

im forum hab ich auch schon gesucht...aber leider nichts brauchbares gefunden. die meisten theards sind über pos und so weiter, das hilft mir allerdings nicht so richtig weiter...

[Dax]

Wenn ich mich nicht ganz irre, wird ein ähnlicher Code auch in SynEdit verwendet, um die Wörter für den Highlighter aus dem Text zu holen..

[Gentleman]

falls es noch jemanden interessiert, hab ich hier nochmal den code so wie er bei mir einwandfrei funzt...

Code:

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  Line: string;
  i, t, X: integer;
  Delimiters: set of Char;
begin  
  Delimiters := [' ', ';', ',', '.', '-']; //Viel mehr Möglichkeiten..
  Line := Richedit1.Lines[Richedit1.CaretPos.Y];
  for i := Richedit1.CaretPos.X downto 1 do
    if Line[i] in Delimiters then Break;
  if Line<> '' then
    begin
      for t := Richedit1.CaretPos.X to Length(Line) do
        if Line[t] in Delimiters then Break;
    end;
  Word := Copy(Line, i, t-i);
end;