StringGrid Cells beschriften

[Ersan90]

Guten Morgen :)

Ich muss ein Lottoprogramm in delphi 6 erstellen.. Nun habe ich das meiste so hinbekommen wie ichs wollte doch ich habe noch ein Problem..

Wie kann ich alle 49 cells mit den 49 zahlen beschriften ohne dass ich jeden cell einzelnt beschriften muss..

sowas wie:

For Z:=1 TO 7 do begin
For S:=1 TO 7 do begin
NR:=Z*7+S
end;
end;

also nur als beispiel mir is klar dass das so net richtig ist ..

Danke schonma im voraus

MFG Ersan

[messie]

Wenn ich es richtig verstanden habe, meinst Du das:

Delphi-Quellcode:

procedure TForm1.TntButton1Click(Sender: TObject);
var
  i,j,k : integer;
begin
  k := 1;
  for i := 0 to SG.RowCount-1 do
  begin
    for j := 0 to SG.ColCount-1 do
    begin
      SG.Cells[j,i] := IntToStr(k);
      inc(k);
    end;
  end;

end;

Einfach Zeilenweise abhecheln, kannst das auch auf spaltenweise umstellen.


Grüße, Messie

[Klaus01]

Abgeleitet von der Messie Routine:

Delphi-Quellcode:

procedure TForm1.TntButton1Click(Sender: TObject); 
var 
  i,j : integer; 
begin 
  for i := 0 to SG.RowCount-1 do 
    for j := 0 to SG.ColCount-1 do 
      SG.Cells[j,i] := IntToStr((7*i)+j+1);  // Fehler korrigiert, danke Ersan90 
end;

Grüße
Klaus

[Ersan90]

vielen vielen dank :D

@Klaus01: Bei dem quelltext bekomm ich irgendwie nen fehler rein :? abber danke euch beiden

[Ersan90]

Noch eine kleine Frage.. wie bekomm ich denn die grauen spalten links und oben weg? oder wie kann ich die bei der beschriftung auslassen? denn die kann ich in der prozedur irgendwie net anklicken

[messie]

Zitat:

Zitat von Ersan90

Noch eine kleine Frage.. wie bekomm ich denn die grauen spalten links und oben weg? oder wie kann ich die bei der beschriftung auslassen? denn die kann ich in der prozedur irgendwie net anklicken

Im Objektinspektor gibt es die Eigenschaften FixedRows und FixedColoumns, die Mußt Du nur auf 0 setzen.

Grüße, Messie

[Ersan90]

Danke nochmals =) Jetzt sieht das ganze Programm doch mal schön aus.

[DeddyH]

Und jetzt dürfte der Fehler mit Klaus' Code auch verschwunden sein ;)

[Ersan90]

jep das is auch ok doch ein problem tut sich noch auf..
nun klickt man eine zahl an.. diese wird gespeichert und dann ausgewertet
doch ich finde es etwas unübersichtlich da man sich die zahlen schlecht merken kann..

Kann mir vll jemand sagen wie die angegklickten cells farbe bekommen | und wie bei klick eines anderen buttons alle farben wieder verschwindet..?

Das is dann auch meine letzte frage versprochen :D:D

[messie]

Schau mal unterZellen im Grid farbig, das ist eine gute Grundlage.

Zitat:

Das is dann auch meine letzte frage versprochen

Das ist in diesem Forum nicht so wichtig...

Grüße, Messie