Forum: Neuen Beitrag zur Code-Library hinzufügen
by hoika,
29. Nov 2017
Hallo,
ich hätte ja noch Alt+Druck anzubieten.
Kopiert zwar das ganze Fenster, aber oft reicht das ja.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by hoika,
28. Nov 2017
Hallo,
das repeat until ist so ähnlich wie eine for-Schleife.
Du hättest auch Deinen Code aus #1 nehmen können.
Gefunden:= False;
for i:= 1 to 25 do
// oder besser for i:= Low(Rezept) to High(Rezept) do
Forum: Neuen Beitrag zur Code-Library hinzufügen
by hoika,
28. Nov 2017
Hallo,
nur nicht verzagen.
Gefunden:= False; // das sieht schöner aus
i := Low(Rezept); // beginnt also bei 1
repeat
Gefunden := Pos(Gesucht,UpperCase(Rezept)) <> 0;
Inc(i);
Forum: Neuen Beitrag zur Code-Library hinzufügen
by hoika,
28. Nov 2017
Hallo,
du warst doch fast fertig...
Wie sieht der Code jetzt komplett aus?
Dein letzter Post ist doch neuer Code.
<Ich bräuchte mal einen Kompletten Quelltext, ohne, dass was fehlt o.Ä.>
Den hattest du bei Deinem 1. Post schon fast.
Da fehlte nur u.a. das break.
Forum: Neuen Beitrag zur Code-Library hinzufügen
by hoika,
28. Nov 2017
Hallo,
und dann bitte noch 2 Stellen optimieren
alt:
For s:=1 to 25 do
If Pos (Uppercase(Gesucht),UpperCase(Rezept))<> 0 Then
neu:
For s:=Low(Rezept) to High(Rezept) do
If AnsiUpperPos(Gesucht,Rezept)<> 0 Then
Forum: Neuen Beitrag zur Code-Library hinzufügen
by hoika,
28. Nov 2017
Hallo,
auch mit dem break ist der Code nicht so schön lesbar.
var
bGefunden: Boolean;
begin
bGefunden:= False;
for do
begin
if bla then