Wir sollten ein Programm erstellen, welches die Messdaten einer Wetterstation aufnehmen sollte. Dazu habe ich ein StringGrid genutzt, mit 3 Spalten, erst Tag, dann Temperatur un Niederschlag. Die Tage werden aber beim Aufbau nicht angeziegt. Ich arbeite mit Delphi7
Quelltext des Ausschnittes:
procedure TForm1.StringGrid1Click(Sender: TObject);
var i:integer ;
begin
with StringGrid1 do
begin
StringGrid1.Cells[0,0]:=‚Tag‘;
StringGrid1.Cells[1,0]:=‚Temperatur in °C‘;
StringGrid1.Cells[2,0]:=‚Niederschlag in mm‘;
For i:=1 to 31 do;
StringGrid1.Cells[0,i]:=IntToStr(i);
end;
end;
was ist hieran falsch?
Hallo Maxilein,
procedure TForm1.StringGrid1Click(Sender: TObject);
var i:integer ;
begin
with StringGrid1 do
begin
StringGrid1.Cells[0,0]:='Tag';
StringGrid1.Cells[1,0]:='Temperatur in °C';
StringGrid1.Cells[2,0]:='Niederschlag in mm';
// ^^^^^^^^^^ dieses StringGrid1 kannst Du Dir sparen
// ist kein Fehler, aber Du schriebst ja schon "with Stringgrid1 do"
For i:=1 to 31 do;
// ^ dieses Semikolon ist hier zu viel.
// die for-Schleife tut ja nichts
// sie soll die nächste Zeile aber 31 mal wiederholen
StringGrid1.Cells[0,i]:=IntToStr(i);
end;
end;
Beim nächsten Mal bitte den Quelltext wie oben formatieren.
Manfred
Jo, danke, funktioniert jetzt. Zumindestens der Teil