Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.736 Beiträge
 
Delphi 6 Enterprise
 
#15

AW: 1x1 programmieren

  Alt 29. Dez 2015, 12:01
Ein Grid ist schon OK zur Darstellung des Ganzen. Würde die Zahlen von 1 bis 10 in der obersten reihe und ersten Spalte des Grids schreiben (das Grid daher mit 11 Spalten und 11 Reihen). In jedes weitere Kästchen des Grids nun das Ergebnis der Multiplikation aus Spalte*Reihe.

Zitat:
Und was soll ich als Befehl hineinschreiben?
Es gibt keinen einen Befehl (nur den einen Ring ). Du brauchst mehrere, meinetwegen aufgeteilt in mehrere kleine Prozeduren. Vielleicht zur Anregung: Platziere einen Button mit der Caption Start und ein StringGrid, z.B. mit Namen Grid, auf einer Form und versuche (nachdem du mal ein Tutorial durchgearbeitet hast) die folgenden Prozeduren mit Leben zu füllen.

Delphi-Quellcode:
procedure TForm1.StartButtonClick()
begin
  DimensioniereGrid;
  SchreibeKopfZeileUndSpalte;
  SchreibeEinMalEinsFelder;
end;

procedure TForm1.DimensioniereGrid()
begin
//Setzte hier die RowCount / ColumnCount Eigenschaft des Grids auf 11 um die
//Anzahl Reihen/Spalten des Grids festzulegen
end;

procedure TForm1.SchreibeKopfZeileUndSpalte()
begin
// Hier braucht man z.B. eine For-Schleife
// Und muss wissen wie man etwas in ein Grid schreibt (Spalten/Zeilen-Index fängt bei 0 an!)
end;

procedure TForm1.SchreibeEinMalEinsFelder()
begin
// Hier braucht man z.B. zwei inneinander geschachtelte For-Schleifen
// Und muss wissen wie man etwas in ein Grid schreibt (Spalten/Zeilen-Index fängt bei 0 an!
// Was man hier aber prächtig ignorieren kann, da in 0 ja jetzt die Headerzeile/-Spalte ist).
end;
Ralph

Geändert von Jumpy (29. Dez 2015 um 12:04 Uhr)
  Mit Zitat antworten Zitat