Hi citybreaker,
hab hier ne sucfunktion gefunden!
Kannst dir die Funktion ja umschreiben!
musst vorher nur ne FindDialog Komponente aufs Formular ziehen!
Delphi-Quellcode:
procedure TForm1.FindDialogFind(Sender: TObject);
var
Found: LongInt;
StartPos, ToEnd: integer;
begin
with RichEdit1 do // hier dann anderen Namen einsetzen!
begin
if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0;
ToEnd := Length(Text) - StartPos;
Found := FindText(FindDialog.FindText, StartPos, ToEnd, [stMatchCase]);
if Found <> -1 then
begin
SetFocus;
// FoundAt := Found;
SelStart := Found;
SelLength := Length(FindDialog.FindText);
end else
Application.Messagebox(Pchar('Suchstring "'+FindDialog.FindText+'" nicht gefunden'),'Information',64);
end;
end;
mfG
mirage228