Deutsches Lazarusforum

Was hab ich falsch gemacht?
Als Thema haben wir Backtraking. Ich habe jetzt 3 Schleifen, die erste probiert alle Felder in der n-ten Zeile durch, die zweite alle Felder in der m-ten Spalte und der zweite probiert dann diagonal alles aus. Nun hängt sich das Programm leider immer auf wenn ich es ...

Aber ich arbeite doch mit Lazarus und dort funktionieren die Pascal Codes leider nicht :/

Mein Lehrer will von mir, dass ich den Quelltext rekursiv schreibe, aber ich weiß nur was das theoretisch ist, also das sich eine Prozedur selbst aufruft. Allerdings hab ich keine Ahnung wie ich das praktisch umsetzen soll.
Der Quelltext soll den größten gemeinsamen Teiler ausrechenen und ...

Bei Selectionsort nimmt das Programm die erste Zahl (aus TStringGrid1) und vergleicht sie mit allen anderen (aus TStringGrid1) . Immer wenn sie größer ist, steigt die Variable Stelle um 1. Wenn er fertig ist kopiert er die Zahl in TStringGrid2 an der Variable Stelle . Dann macht er das mit den ...

Bei Selectionsort nimmt das Programm die erste Zahl und vergleicht sie mit allen anderen. Immer wenn sie größer ist, steigt die Stelle um 1. Wenn er fertig ist kopiert er die Zahl in die zweite Tabelle an der Variable Stelle. Dann macht er das mit den restlichen Zahlen :) Ich hoffe ich hab das jetzt ...

procedure TForm1.Button4Click(Sender: TObject);
var
i,j,v : Integer;
Begin
For i:= 2 To 9 Do
Begin
v:= StrToInt(StringGrid2.Cells[i,0]);
j:= i;
While ((j > 1) and (StrToInt(StringGrid2.Cells[j-1,0]) > v)) Do
Begin
StringGrid2.Cells[j,0]:= StringGrid2.Cells[j-1,0];
dec(j);
End ...

Ok danke :)
Jetzt funkioniert es, aber ich hab das davor schon mal probiert und es hat nicht funktioniert o.O
Soll ich hier für jedes neue Problem einen neuen Thread starten?
Und das mit dem Titel wusste ich noch nicht, wird aber in der Zukunft eingehalten :)
Btw: Wie ändere ich das Projekt, dass es ...

Was ich auch noch für wichtig halte ist, wie ich mir ein Programmcode erarbeite.
Denn ich hab immer das Problem ich weiß was ich machen will, weiß aber nicht wie ich das Umsetzen will.
Aber die Idee finde ich spitze, weil ich selber noch ein Anfänger bin.

So jetzt sollten alle Dateien dabei sein.

Immer wenn ich mein Programm kompilieren will, bekomm ich folgenden Fehler:
unit1.pas(31,15) Error: Forward declaration not solved "TForm1.FormCreate(TObject);"
Ich meine ich hab keine Ahnung was ich da jetzt syntaktisch falsch gemacht hab, deswegen hab ich das Projekt mal in den Datenanhang gepackt ...