AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Mit savetoFile/loadfromFile Daten ins Formular bringen
Thema durchsuchen
Ansicht
Themen-Optionen

Mit savetoFile/loadfromFile Daten ins Formular bringen

Ein Thema von EdAdvokat · begonnen am 25. Nov 2018 · letzter Beitrag vom 27. Nov 2018
 
EdAdvokat

Registriert seit: 1. Mai 2016
Ort: Berlin
415 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Mit savetoFile/loadfromFile Daten ins Formular bringen

  Alt 25. Nov 2018, 10:35
Delphi-Version: 10.2 Tokyo
Ich probiere mal wieder und komme nicht weiter. Ich bin relativ unbedarft auf dieser Strecke.
Die unit von Taladan habe ich im Forum gefunden:

https://www.delphipraxis.net/47970-t...speichern.html

Dazu habe ich für die dort def. Felder (ID,Name,Herkunft,Geschlecht) auf meiner Formular-unit entsprechende
edit-Komponenten eingerichtet.
mit den Methoden savetofile/loadfromFile möchte ich also eingegebene Daten nach z.B e:\test\daten.dat speichern und
von dort dann mit loadfromfile wieder ins Formular aufnehmen. Sicher wohl eine ganz einfache Art und Weise, doch es
klappt einfach nicht.
Beim savetoFile kommt ein Datensatz an und wird gespeichert. Weitere Datensätze werden nicht gespeichert.
Beim Aufruf loadfromFile erhalte ich lediglich den Wert für die ID mit 0. Die anderen Felder werden nicht gefüllt.
Wo klemmt es da bei mir? anbei meine stümperhaften Versuche:
Delphi-Quellcode:
procedure TForm1.speichernClick(Sender: TObject);
var FileN :string;
begin
  Name:=TName.create;
  Name.ID:=strtoint(Edit1.text);
  Name.Name:=edit2.text;
  Name.Herkunft:=Edit3.text;
  Name.Geschlecht:= true; //checkBox1.Checked;
  objectlist.Add(Name);
  objectlist.SaveToFile('e:\Test\daten.dat');
  init;
end;

procedure TForm1.ladenClick(Sender: TObject);
var FileN:string;
begin
  objectlist.LoadFromFile('e:\test\daten.dat');
  Edit1.text:=inttostr(Name.ID);
  Edit2.Text:=Name.Name;
  Edit3.text:=Name.Herkunft;
  CheckBox1.Checked:=Name.Geschlecht;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Name:=TName.Create;
  Objectlist:=TMyObjectList.create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Name.free;
  objectlist.Free;
end;
Norbert
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz