Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
3. Jan 2018
Es funktioniert einwandfrei und die Nutzung ist sehr einfach.
Ich finde es gut lesbar. Man muss dem Kind nur einen guten Namen geben.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
3. Jan 2018
Dann ließt man sich 5 Minuten ein und alles ist gut.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
3. Jan 2018
Ich müsste das schon mehrere tausend male aufrufen, um überhaupt einen messbaren aber nicht spürbaren Effekt zu erhalten.
Ob schlechter lesbar oder nicht ist mir im Prinzip Schnuppe. Denn der Code wird von mir gelesen wird nicht geteilt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
3. Jan 2018
Ich finde es durch den Nachfahren deutlich unübersichtlicher.
Ich brauche ja keinen Nachfahren sondern einfach nur den Prozedurkopf an einer Stelle im Code statt an x verschiedenen.
Und genau das habe ich jetzt.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
3. Jan 2018
Das mit dem Nachfahren wird nix denn DieEigentlicheArbeit ist immer eine andere und dafür Prozeduren zu erstellen lohnt sich nicht.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
3. Jan 2018
Sähe das sonst aber nicht so aus?
FÜR i = 0 BIS -1 DANN
Weil Liste.Count -1 bedeutet ja 0-1 = -1?
Warum denn > 0? Ich prüfe im neuen Code auf = 0.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
3. Jan 2018
Nee. Ich benutze an sehr vielen Stellen im Programm immer wieder denselben Schleifenkopf und vor diesem Schleifenkopf noch eine weitere if-Abfrage.
Etwa so
{ 1 } if Liste.Count > 0 then
begin
{ 2 } for i := 0 to Liste.Count - 1 do
begin
DieEigentlicheArbeit;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
2. Jan 2018
Das ist die Frage. Das übersteigt aber meine Fähigkeiten :oops:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
2. Jan 2018
Für Tokyo habe ich das jetzt so gemacht
type
TProcedureParameter = reference to procedure(i: Integer);
implementation
procedure ForLoop(Proc: TProcedureParameter);
var
Forum: Algorithmen, Datenstrukturen und Klassendesign
by LTE5,
2. Jan 2018
Ich weiß nicht wie ich das erklären soll. Ich habe das schon einmal gesehen weiß aber nicht wie es heißt und wie ich es finden kann.
Kann man den Schleifenkopf einer For-Schleife irgendwie als eine Art Template als Code festhalten und den Schleifeninhalt als Prozedur oder direkt Zeile für Zeile übergeben?
for i := 0 to 99 do
begin
1
2
3
end;