Hallo ihr Lieben,

ich habe gerade folgendes Problem.

Ich habe meine Mainform auf der ein Stringgrid ist. Zum hinzufügen neuer Werte lasse ich ein Eingabeformular aufrufen.

Wenn das Formular geschlossen wird, werden die werte ersteinmal an ein Objekt gegeben und bearbeitet (berechnet usw.)

Wie kann ich denn nun die Mainform aktualisieren, um die Werte anzuzeigen? Klar, das anzeigen weiß ich schon, aber ein Update wüsste ich nun nicht, wie ich es am besten anstelle.

Danke schin einmal für eure Hilfe

LG

Wie kommen die Daten in das Grid?

Von einer Liste? Hängst du dort auch das neue Objekt dran?

vorherige daten kommen aus einer txt-datei aber einen neuen Eintrag hänge ich eben mit dem objekt einfach dran.
ich habe es jetzt versucht einfach von dem formular aus die daten in das grid zu stecken.. Funktioniert nocht nicht ganz ich glaube das sind bloß die berechnungen

Aber wenn du eine andere idee hast, immer her damit

Also wenn die Anwendung gestartet wird, werden sie Werte von vorher ins Grid eingelesen. Nun werden neue Daten eingegeben... Aber wie kommen die ins Grid?

Habe es halt mit einer Stringverkettung gemacht

markieren

Delphi-Quellcode:

var
  i: Integer;
begin
  i := Form1.StringGrid1.RowCount +1;

  with Self.FVerarbeitung do
  begin
    Form1.StringGrid1.Rows[i].Add(FloatToStr(Gewicht.NewGew) + FloatToStr(Umfang.Taille) + FloatToStr(Umfang.Huefte)
       + FloatToStr(Umfang.SchenkelGes) + FloatToStr(Gewicht.NewGew){ + FloatToStr(NewBMI) + FloatToStr(ProzTarget)});
  end;

Will ja nun eben dass die die Mainform bzw das Grid aktualisieren.

Wobei es allerdings schön wäre, wenn ich erst in der Mainform die Werte in das Grid stopfe und nicht schon im eingabeformular.. das funktioniert nämlich nicht so ganz

Organisiere deine Daten in einer Liste TObjectList<T>
Baue dir dazu 2 Routinen SaveListToFile und LoadListFromFile .
Dann noch eine Routine ListToStringGrid und alles wird viel einfacher.

Das neue Objekt an die Liste hängen, Liste speichern und im Grid anzeigen lassen.

Die Form zur Eingabe der Daten wird ja wohl modal aufgerufen, somit kannst du folgendes machen

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainForm.NeueDaten_ButtonClick( Sender : TObject );
var
  LMyObj : TMyObj;
begin
  with TDataEditForm.Create( nil ) do
  try
    if ShowModal = mrOK then
    begin
      LMyObj := TMyObj.Create;
      StoreToObj( LMyObj ); // Methode des Eingabeformulars TDataEditForm
      MyList.Add( LMyObj );
      SaveListToFile( MyList );
      ListToStringGrid( MyList, StringGrid1 );
    end;
  finally
    Free;
  end;
end;

ok ich versuchs mal danke dir