So. Mit unwahrscheinlicher Kreativität.. Naja eigentlich war es ganz simpel, habe ich den String durchsucht bekommen.
Delphi-Quellcode:
var i : integer;
begin
for i := 1 to Length(RichEdit1.Text) do
begin
RichEdit1.SelStart := i - 1;
RichEdit1.SelLength := Length(Edit2.Text);
if (RichEdit1.SelText = Edit2.Text) then
inc(CountButton3);
end;
Label4.Caption := 'Es sind ' + inttostr(Countbutton3) + ' ' + Edit2.Text + ' vorhanden.';
end;
Das wars! Danke für die Hilfe.. Mit dem
ASM Code kann ich leider nichts anfangen .
