ich hab das auch versucht, hier mein code
Delphi-Quellcode:
procedure TForm2.Edit1Change(Sender: TObject);
var i: integer;
var a: integer;
var s: string;
var s2: string;
begin
s:=Edit1.Text;
s2:='';
for i := 0 to Length(RichEdit1.Text) do
begin
for a := 0 to Length(s) do
begin
s2:=s2+RichEdit1.Text[i+a];
end;
if s=s2 then
begin
RichEdit1.SelStart:=i;
RichEdit1.SelLength:=a;
end;
end;
end;
jedoch geht das nicht ganz, ich versteh auch nicht wirklich wieso,
der zeigt einfach nix an
PS: ich hab das so gemacht dass der beim schreiben gleich überprüfen soll