Ich habe ein kleines Problem...
und zwar will ich ein Programm Programieren in welchem ich in edit1 eine Text eingebe und in edit2 mein suchwort. Ich bin schon so weit das man mir die Position des suchwortes ausgibt aber nun will ich dises gesuchte wort rot anzeigen und das ist der punkt an dem ich nicht weiter komm .
Mein Programm bis jetzt :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var MaxLenght, position: integer;eingabewort, suchwort, ausgabemitmarkierung:string;
begin
eingabewort := edit1.text; // =ganzer text!
suchwort:= edit2.text;
Position := Pos(suchwort, eingabewort);
insert('-->',eingabewort, Position);
AutoSize := true;
MaxLenght := 0;
// vergleicht string(s) mit string(edit2.)
if Position <> 0 then
begin
ShowMessage('gefunden an Position: ' + IntToStr(Position)) ;
showmessage(eingabewort);
edit1.font.Color:=clred;
end
else
ShowMessage('nicht im string vorhanden');
end;
end.
[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG Matze[/edit]