Nun denn, ich habe es bis jetzt soweit geschafft mit dem Code:
Delphi-Quellcode:
implementation
{$R *.dfm}
var s_Wort: string;
procedure TForm1.bt_HClick(Sender: TObject);
const bt_H = 'h';
begin
s_Wort := (ed_Eingabe.Text);
if StrScan(s_Wort, 'h') <> nil
then Lb_zaehler.Caption := Lb_zaehler.Caption + '1';
end;
Das ist jetzt nur der Teil mit dem Button. Ich wollte es erstmal so angehen, dass ich dem Button eine Konstante gegeben habe
der Buchstaben 'h' und wenn der ihm s_Wort vorhanden ist, soll einfach erstmal eine '1' im Label stehen.
Jetzt kriege ich 2 Fehlermeldungen:
[dcc32 Fehler] Geigenmännchen.pas(40): E2250 Es gibt keine überladene Version von 'StrScan', die man mit diesen Argumenten aufrufen kann
[dcc32 Warnung] Geigenmännchen.pas(40): W1000 Symbol 'StrScan' ist veraltet: 'Moved to the AnsiStrings
unit'
Was kann ich damit anfangen?