Hallo marabu,
ich danke dir für das Kommentar.
Nun balstle ich schon an meinem nächsten Problem, passt aber auch hier her.
Ziel: Der Nutzer des Programmes soll mit Eingabe von der selbstgewählten Anzahl von Messwerten seine Tabellengröße selbst bestimmen.
Dazu habe ich folgenden Quellcode geschrieben, oder besser gesagt, deinen ergänzt.
Delphi-Quellcode:
procedure TForm1.Button4_Berechne_PClick(Sender: TObject);
var
i, anzahl: integer;
dSpannung, dStrom, dLeistung: double;
s: string;
ok: boolean;
begin
anzahl:=StrToInt(Edit3_Eingabe_anzahl.Text);
StringGrid1.RowCount:=anzahl+1;
StringGrid2.RowCount:=anzahl+1;
with StringGrid1 do
for i := FixedRows to anzahl do
begin
StringGrid1.Cells[0,i]:=IntToStr(i)+'.';
ok := TryStrToFloat(Cells[1, i], dSpannung);
ok := ok and TryStrToFloat(Cells[2, i], dStrom);
if ok then begin
dLeistung:= dSpannung * dStrom;
s := FloatToStr(dLeistung);
end else s := '';
StringGrid2.Cells[0, i] := s;
end;
end;
end.
Nun funktioniert das Ganze zwar, wenn ich im Eingabefeld "Anzahl der Messwerte" eine Interger-Zahl eingebe wird die Tabelle beim Betätigen des Buttons "Berechne" erweitert und die Nummerierung bis zur letzten Zeile ergänzt. Aber das ist für den Anwender unpraktisch-denke ich.
Nun meine Überlegung zur Verbesserung: 1. Ich gebe eine Anzahl in das EditFeld ein, sobald ich mit der Maus in die Tabelle hineinklicke, wird die Tabelle auf die nötige Größe erweitert und durchnummeriert.
Meine Frage: Ist sowas ohne großen Aufwand programmierbar, wenn ja, welchen Tipp könnt ihr geben?
Danke
Technikus