Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
KOPIEREN und unter deinem "ButtonXClick" EINFÜGEN, das ist alles.
var
Rezept: array of string;
i: Integer;
Gesucht: string;
Gefunden: Boolean;
begin
Gesucht := UpperCase(Edit1.Text);
Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
Du Hast einfach Code gelöscht .. guck mal Beitrag 28. Du musst einfach nur kopieren und einfügen und NICHT dran rumfummeln.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
Du hast das falsch kopiert.
Im Original-Beitrag steht was anderes.
Einfach die Hälfte rauslöschen und dann sagen, dass es nicht funktioniert? :cyclops:
Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
Ist das jetzt nicht ein bisschen unverschämt?
Ließ dir bitte die letzten 4 Seiten durch.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
Weil du sie nicht mehr deklariert hast.
procedure TForm1.Button6Click(Sender: TObject);
Var i : Integer;
Gesucht : String;
Gefunden : Boolean;
begin
So sah es vorher aus.
procedure TForm1.Button6Click(Sender: TObject);
Var Rezept:array of string;
Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
Solche Nachrichten gehen leider vollkommen unter, da immer mehr unnötige Sachen gepostet werden.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
Deshalb.
Gesucht: Wirsing
Rezept = Wirsinggemuese
Resultat: Wirsinggemuese
Pos = 1 in diesem Fall, da die Zählung bei 1 beginnt (W = erster Buchstabe in Wirsinggemuese).
Deshalb auf > 0 testen.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by LTE5,
28. Nov 2017
Dein If ist irgendwie ganz komisch.
Muss das nicht eher so sein?
if Pos(UpperCase(Gesucht), UpperCase(Rezept)) > 0 then
> 0 bedeutet, dass "Gesucht" in "Rezept" vorkommt.
> 0, weil wenn Gesucht Wirsing ist und Rezept Wirsinggemuese, dann ist das W von Wirsing an Position 1 gefunden worden.
= 0 bedeutet, dass Gesucht nicht gefunden wurde.