Wenn ich es nicht zufällig gerade schon fertig vorliegen hätte...
Das müsste auch noch mit älteren Delphi-Versionen laufen. Die Delimiter sind sicher überarbeitungsbedürftig. Bei einem aktuellen Delphi käme hier vielleicht eher System.Character zur Anwendung.
Delphi-Quellcode:
function TForm1.GetWordAtCursor(Memo: TMemo):
string;
var
curLine:
string;
row: Integer;
col: Integer;
wordLength: Integer;
wordStart: Integer;
function IsDelimiter(
const Line:
string;
Index: Integer): Boolean;
const
cWordDelimiters = '
,./?;:`"<>[]{}-=\+|()%@&^$#!~*';
begin
result := (
Index < 1)
or (
Index > Length(Line))
or (Pos(Line[
Index], cWordDelimiters) > 0);
end;
begin
row := Memo.CaretPos.Y;
col := Memo.CaretPos.X;
curLine := Memo.Lines[row];
wordStart := col;
{ falls der Cursor auf einem Delimiter steht, wollen wir das Wort vorher }
if IsDelimiter(curLine, wordStart)
and (wordStart > 1)
then begin
Dec(wordStart);
end;
{ Suche Anfang des Wortes }
wordLength := 0;
while not IsDelimiter(curLine, wordStart)
do begin
Dec(wordStart);
Inc(wordLength);
end;
{ Suche Ende des Wortes }
col := wordStart + wordLength + 1;
while not IsDelimiter(curLine, col)
do begin
Inc(col);
Inc(wordLength);
end;
if wordLength > 0
then begin
result := Copy(curLine, wordStart + 1, wordLength);
end;
end;
Läuft problemlos mit Delphi5, Dankeschön!
Falls der gefundene Krempel auch noch markiert werden soll:
Delphi-Quellcode:
if wordLength > 0 then
begin
result := Copy(curLine, wordStart + 1, wordLength);
// Memo.SetCaret(row, wordStart); //Cursor an den Wortanfang
// Memo.SelLength := wordLength; //Wort markieren
// Memo.SetFocus; //für focusverlierende Buttons
end;
Recht nützlich für Autotext-Funktionen, bei denen eine gefundene "Abkürzung" (das gefundene Wort) durch Textbausteine ersetzt werden soll.
Bisher parste ich nur rückwärts vom Abkürzungsende zum Wortanfang, ab jetzt kann ich auch mitten in ein beliebiges Wort klicken lassen.
Latürnich über ein böses, globales Boolean umschaltbar...
MfG