Forum: Programmieren allgemein
by Fridolin Walther,
15. Nov 2008
Ist in dem Fall unnötig, weil in Zeile 0 keine Werte vorhanden sind und somit niemals irgendwelche Werte in die Zeile 1 geschrieben werden (die 1 die dort platziert wird, wird also niemals geändert).
Forum: Programmieren allgemein
by Fridolin Walther,
15. Nov 2008
Hier die gefixte Routine für alle Interessierten:
procedure TForm1.Button1Click(Sender: TObject);
var
ACol, ARow, x : Integer;
begin
StringGrid1.Cells := '1';
for ARow := 1 to 10 do
for ACol := 1 to 34 do
begin
Forum: Programmieren allgemein
by Fridolin Walther,
14. Nov 2008
Ob wir mal in die anderen Delphi Foren schauen ob ers jetzt da versucht? Aber das wär schon böse :P. Dabei sind das - wenn er das IF einbaut - wirklich nur 2 winzige Kleinigkeiten.
Forum: Programmieren allgemein
by Fridolin Walther,
14. Nov 2008
Das ist schon mal richtig :).
Die anderen Sachen sind minimal. Nochmal kurz wie man das Dreieck berechnet:
Man geht jede Spalte durch. In jeder Spalte schaut man sich nun jede Zelle an. Für jede Zelle berechnet man jetzt die Summe der Zellen links oberhalb und rechts oberhalb der aktuellen Zelle. Die Summe trägt man dann in die aktuelle Zelle ein.
Und jetzt schau mal was Du dort machst...
Forum: Programmieren allgemein
by Fridolin Walther,
14. Nov 2008
function StrToIntDef(const S: string; Default: Integer): Integer;
StrToIntDef konvertiert den String S in eine Zahl. Falls S keine gültige Zahl ist, wird stattdessen der Integer Wert Default zurückgegeben. Die ", 0" bedeutet also soviel wie: "Gib mir den String in der Zelle als Zahl zurück, und wenn da nichts drin steht, bitte 0.".
Forum: Programmieren allgemein
by Fridolin Walther,
14. Nov 2008
Das Problem ist, das es Dir nichts bringt, wenn Sir Rufo es Dir sagt. Weil letztlich musst Du es können und nicht Sir Rufo. Entsprechend klar das er Dir nur Tipps gibt und keine komplette Lösung präsentiert.