okay hab mir das mal angeschaut, aber mir wirklcih weiterhelfen tut es nicht.
Also unter Neu trägt mein ein neuen Datensatz ein und dieser soll, wenn auf Ok geklickt wird in dem grind eingefügt werden.
Doch gibt er mir immer eine fehlermeldung aus, weil (glaub ich) anscheinend in adresse. ... nichts drinsteht, obwohl im nebenformular, der text der editfelder in diese variablen gespeichert wird.
Delphi-Quellcode:
procedure TFormMain.Neu1Click(Sender: TObject); // Beim Klicken auf Neu ober in der Leiste
var
FormAdresse : TFormAdresse ;
kontaktdaten : tKontaktdaten;
begin
formAdresse := TFormAdresse.Create( Self ); // Es wird wieder das Formular Adresse erstellt
formAdresse.Adresse := tAdresse.Create ; ;
if formadresse.ShowModal = mrOK then // Wenn OK geklickt wurde, dann ..
begin
ShowMessage ( 'Die Werte wurden gespeichert' ); // Wird dieser Text ausgegeben und ..
//Adressen.Add( FormAdresse.Adresse ) ; // Die eingetragenden Daten werden in der TList Adressen abgespeichert
tbAdressen.Insert;
tbAdressenCreate;
tbAdressen.Post;
end
else // Ansonsten..
ShowMessage ( 'Die Aktion wurde abgebrochen' ) ; // wird diese Meldung ausgegeben
// RefreshList ; // AdresseListBox wird aktualisiert und somit wird der neue Datensatz eingetragen
formadresse.Release ; // Gibt den Speicher im Formular Adresse wieder frei
end;
procedure TFormMain.tbAdressenCreate;
begin
tbAdressen.FieldByName('ID').AsInteger := adresse.ID;
tbAdressen.FieldByName('Anrede').AsString := adresse.Anrede;
tbAdressen.FieldByName('Nachname').AsString := adresse.Nachname;
tbAdressen.FieldByName('Vorname').AsString := adresse.Vorname;
tbAdressen.FieldByName('Strasse').AsString := adresse.Strasse;
tbAdressen.FieldByName('PLZ').AsInteger := adresse.PLZ;
tbAdressen.FieldByName('Ort').AsString := adresse.Ort;
end;
ich hoffe jemand kann mir das anhand des quelltextes erklären
danke schonmal