Forum: Neuen Beitrag zur Code-Library hinzufügen
by Delphi.Narium,
29. Nov 2017
Abfotografiert kenne ich auch, aber bisher nur von deutlich unter 30 (Schüler und Studenten).
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Delphi.Narium,
28. Nov 2017
Inc(i) entspricht i := i + 1
Die Prozedure sucht in dem Array Rezept nach der ersten Übereinstimmung von Suchbegriff und Rezepteinträgen. Dabei wird die Groß-/Kleinschreibung ignoriert.
Am Ende wird ausgegeben, ob der Suchbegriff gefunden wurde oder nicht.
Um zu verstehen was die Routine macht, setze Dich hin und kommentiere jede Zeile, schreib zu jeder Zeile im Kommentar, was sie macht....
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Delphi.Narium,
28. Nov 2017
Anstelle der Zeile mit IfThen eventuell:
case Gefunden of
true : Label9.Caption := 'Das Rezept ist in der Rezeptsammlung vorhanden!';
false: Label9.Caption := 'Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
end;
Mein Delphi kommt mit dem IfThen zurecht.
Im Original steht nicht Label9.Caption:=('Das Rezept ist in der Rezeptsammlung vorhanden!');
); sondern ...
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Delphi.Narium,
28. Nov 2017
var
Rezept : array of string;
i : Integer;
Gesucht : String;
Gefunden : Boolean;
begin
Gesucht := UpperCase(Edit1.text);
...
i := Low(Rezept);
repeat
Forum: Neuen Beitrag zur Code-Library hinzufügen
by Delphi.Narium,
28. Nov 2017
Label9.Caption:='Das Rezept ist nicht in der Rezeptsammlung vorhanden!';
For s:=1 to 25 Do
begin
If Pos (Uppercase(Gesucht),UpperCase(Rezept))<> 0 Then
begin
Label9.Caption:='Das Rezept ist in der Rezeptsammlung vorhanden!';
Break;
end;
end;