Hallo miteinander,
Programmaufbau:
Code:
Form5 -> Memo5(TMemo), Button5(TButton)
Form6 -> Memo6(TMemo), Button6(TButton)
Meine Idee:
Das Form6.Memo6 wird zeilenweise mit Strings gefüllt.
Durch Klick auf Button6 wird der Inhalt von Memo6 nach Memo5 übertragen.
---- Bis hierhin klappt alles.
Nun soll beim Klick auf Button5 das Memo5 nach einem String durchsucht werden, verbunden durch eine Abfrage. Heißt: Wenn der String gefunden wurde, dann führe etwas aus.
Code:
procedure TForm5.Button5Click(Sender: TObject);
begin
if ((Pos('blablabla', Memo5.Lines)) := True) then
begin
TuEtwas;
end;
end;
Folgender Fehler erscheint:
E2250 Es gibt keine überladene Version von 'Pos', die man mit diesen Argumenten aufrufen kann
Wenn ich die if-Zeile durch folgende ersetze, klappt es auch nicht:
if (Memo5.Lines.IndexOf('blablabla') = True) then
Fehler:
E2008 Inkompatible Typen
Was mache ich falsch? Hat jemand einen Denkanstoß für mich parat?
Gruß
Kratos