Wertübergbae für einen Stringgrid

[marabu]

Ist bestimmt hilfreich, wenn du den relevanten Code anhängst.

Zu den Formatier-Hilfen: Wenn du auf den Delphi-Code Button oberhalb des Beitragseditors klickst wird das öffnende Tag produziert, klickst du nochmal, dann wird das schließende Tag produziert. Du kannst deinen Code auch nachträglich einfassen, indem du ihn markierst und dann auf den Button klickst, oder indem du die Tags mit der Hand schreibst - nachdem du das Prinzip verstanden hast ist das wahrscheinlich der schnellste Weg.

marabu

[Technikus]

Hallo marabu
hier nun mein aktueller Quellcode:

Delphi-Quellcode:

unit unit1_solarzelle;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Borland.Vcl.Grids, System.ComponentModel, Borland.Vcl.StdCtrls,
  Borland.Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Panel1_Ueberschrift: TPanel;
    Panel2_Beleuchtungsstaerke: TPanel;
    Edit1_Eingabe_lx: TEdit;
    Button1_Speichern: TButton;
    Button2_Laden: TButton;
    Button3_Leeren: TButton;
    Button4_Berechne_P: TButton;
    Button5_Beende: TButton;
    Label1_Optimum: TLabel;
    Edit2_Optimum: TEdit;
    StringGrid2: TStringGrid;
    Edit3_Eingabe_n: TEdit;
    Label2_Anzahl_Messwerte: TLabel;
    procedure Button4_Berechne_PClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5_BeendeClick(Sender: TObject);
   private
    { Private-Deklarationen }
   public
    { Public-Deklarationen }
   end;

var
  Form1: TForm1;

implementation
{$R *.nfm}

procedure TForm1.Button5_BeendeClick(Sender: TObject);
begin
close
end;

procedure TForm1.FormCreate (Sender: TObject);
var i,n: smallInt;
begin
   StringGrid1.Cells[0,0]:='Nr.';
   StringGrid1.Cells[1,0]:='Spannung U';
   StringGrid1.Cells[2,0]:='Stromstärke I';
   StringGrid2.Cells[0,0]:='Leistung P';
   {StringGrid1.RowCount:=n+1; }
   for i:=1 to 9 do
   StringGrid1.Cells[0,i]:=IntToStr(i)+'.';
   with StringGrid1 do
    begin
     ColWidths[0]:= 28;
     ColWidths[1]:= 110;
     ColWidths[2]:= 110;
    end;
end;

procedure TForm1.Button4_Berechne_PClick(Sender: TObject);
var
j: integer;{Lauf-Variablen zum Berechnen}
leistung: double;
u,i: array [1..9] of double;
 begin
  for j:=1 to 9 do
   begin
    u[j]:=StrToFloat(StringGrid1.Cells[1,j]);
    i[j]:=StrToFloat(StringGrid1.Cells[2,j]);
   end;
  for j:=1 to 9 do
   with StringGrid2 do {Ausgabe der berechneten Leistung}
    begin
      leistung:= u[j]* i[j];
      Cells[0,j]:= FloatToStr(leistung);

    end;
 end;
end.

[r2c2]

Ich hab mal deinen Code übernommen und bei mir funktioniert der anstandslos. Ich hab nix verändert: Copy&Paste macht's möglich! :zwinker:
Fehler find ich auf Anhieb auch keine...
Kann es sein, dass du dich mit den versionen ein bisschen verzettelt hast? Hast du zwischendurch mal eine Datei umbenannt oder unteer anderem Namen gespeichert. Der Code, den du gepostet hast scheint nämlich so zu stimmen...

Zu den Breadpoints:
Du kannstfehler suchen(debuggen) indem du einen Haltepunkt(Breakpoint) in eine Zeile setzt(einfach [F5] drücken oder mit der Maus an den Rand klicken). Wenn dein Prog dann diese Zeile ausführen will hällt es an aund du kannst die Werte der einzelnen Variablen überprüfen, indem du mit der Maus über die Variablen fährst. wenn dein Programm dann die nächste Zeile ausführen soll, drückst du [F8]. Wie das ganze funktioniert steht nochmal auf www.dsdt.info: Debugger und Haltepunkte.
So kannst du genau feststellen, was dein prog wann macht und wo genau der Fehler auftritt.

mfg

Christian

[marabu]

Dein Code ist korrekt - wenn auch etwas ungewöhnlich. Der von dir beschriebene Fehler dürfte entstehen, wenn du nicht alle Eingabezellen mit Werten belegt hast. Der folgende Code zeigt dir, wie du das abfangen könntest.

In meinem Code habe ich die Arrays für Spannung und Stromstärke der Einfachheit halber eliminiert. Dann habe ich den Komponenten sprechende Namen gegeben. i und j sind klassische Laufvariablen, ich habe deshalb dCurrent eingeführt - d kennzeichnet den Variablen-Typ double und Current sagt etwas über den Verwendungszweck der Variablen aus.

Delphi-Quellcode:

procedure TCalcForm.CalcButtonClick(Sender: TObject);
var
  i: integer;
  dVoltage, dCurrent, dPower: double;
  s: string;
  ok: boolean;
begin
  with Grid do
  for i := FixedRows to RowCount - 1 do begin
    ok := TryStrToFloat(Cells[1, i], dVoltage);
    ok := ok and TryStrToFloat(Cells[2, i], dCurrent);
    if ok then begin
      dPower:= dVoltage * dCurrent;
      s := FloatToStr(dPower);
    end else s := '';
    Cells[3, i] := s;
  end;
end;

marabu

PS: bei mir gibt es auch kein zweites Grid, die Ausgabe mache ich in Spalte 4...

[Technikus]

Hallo marabu,
ich habe meinen Quellcode so probiert, dass alle Zellen mit Zahlen belegt waren, der Fehler war der Gleiche.
Nun habe ich meine Procedure durch deine Procedure ersetzt und angepasst. Nun funktioniert es wunderbar.

Aber noch eine Frage:
Kannst du mir mit Kommentaren deinen Quellcode bitte nochmal mit Kommentaren erklären, was so in den einzelnen Schritten abläuft?
Ich möchte es gern verstehen.
Vielen Dank nochmals für die Hilfe an alle Beteiligten.
Technikus

[marabu]

Zitat:

Mit Kommentaren im Code versucht der Entwickler seine Kollegen über die miese Qualität seines Codes hinweg zu täuschen.

Na gut, ich versuche es - aber dass du es nicht gegen mich verwendest...

Delphi-Quellcode:

procedure TCalcForm.CalcButtonClick(Sender: TObject);
var
  i: integer;
  dVoltage, dCurrent, dPower: double;
  s: string; 
  ok: boolean;
begin
  // Ich verwende gerne einen with Block zur 
  // Verkürzung der qualifizierter Namen
  with Grid do  
  // Die Untergrenze der Laufvariablen setze ich
  // auf die erste Zeile nach der Überschrift,
  // funktioniert so auch bei mehrzeiligen Überschriften.
  // Die Obergrenze ist wegen der 0 basierenden 
  // Zeilenadressierung um 1 kleiner als die Gesamtzahl der Zeilen.
  for i := FixedRows to RowCount - 1 do begin
    // Ich versuche den Spannungswert zu gewinnen 
    // und merke mir das Ergebnis
    ok := TryStrToFloat(Cells[1, i], dVoltage);
    // Jetzt noch den Stromwert. Das Ergebnis 
    // verknüpfe ich mit dem vorigen.
    ok := ok and TryStrToFloat(Cells[2, i], dCurrent);
    // Nur wenn beide Werte korrekt vorliegen
    if ok then begin
      // brechne ich die Leistung
      dPower:= dVoltage * dCurrent;
      // und wandle sie für die Anzeige in einen String um
      s := FloatToStr(dPower);
    end else s := '';  // ansonsten bleibt der string leer
    // die Ausgabe-Zelle wird belegt
    Cells[3, i] := s;
  end;
end;

Den Hinweisen von Christian zum interaktiven Debuggen in der IDE solltest du vielleicht auch noch nachgehen. Die Inspektion der Variablen-Inhalte zur Laufzeit ist mitunter eine sehr schöne Sache.

Freundliche Grüße vom marabu

[Technikus]

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

[marabu]

Die beiden Aktionen "Tabelle dimensionieren" und "Leistung berechnen" sind unabhängig voneinander, also solltest du sie auch nicht miteinander vermischen. Nimm einen eigenen Button für die Dimensionierung oder was immer sonst dir für deine Benutzeroberfläche gefällt. Ich habe deinen Code ein wenig umgestellt. Das Nummerieren der Zeilen geschieht jetzt in einer eigenen Prozedur:

Delphi-Quellcode:

const
  MAXVALUES = 20;

procedure TCalcForm.RenumberGridLines;
var
  i: integer;
begin
  with Grid do
  for i := FixedRows to RowCount - 1 do
    Cells[0, i] := IntToStr(Succ(i - FixedRows)) + '.';
end;

procedure TCalcForm.ResizeButtonClick(Sender: TObject);
var
  s: string;
  i: integer;
begin
  s := IntToStr(Grid.RowCount - 1);
  if not InputQuery('Tabelle dimensionieren', 'Zeilen', s) then
    Exit;
  if not TryStrToInt(s, i) then
    ShowMessage(Format('"%s" ist nicht numerisch', [s]))
  else if not (i in [1..MAXVALUES]) then
    ShowMessage(Format('"%d" ist keine gültige Zeilenzahl', [i]))
  else begin
    Grid.RowCount := Succ(i);
    RenumberGridLines;
  end;
end;

marabu

[r2c2]

Zitat:

Zitat von Technikus

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?

Ja das macht keinen großen Aufwand. Und ein Tipp: TStringgrid.OnClick.

Ich würde das aber etwas anders machen:
- nur einen StringGrid nehmen
- die Leistung in die 3. Spalte eintragen.
- einen Butten: Neuer wert
- Beim Click auf diesem Button: Neue Zeile mit Nummerierung

mfg

Christian

//Edit: Zu spät... :oops:

[marabu]

@Christian: nicht schlecht - dein Ansatz mit dem inkrementellen Dimensionieren. Dann braucht man allerdings noch eine Lösung für das Verkleinern der Tabelle, die vom Ansatz her dazu passt...

Freundliche Grüße vom marabu