Ich schon wieder
,
Und zwar habe ich folgendes Problem. Ich möchte Daten aus Editfeldern in ein Record speichern:
Record:
Delphi-Quellcode:
Bilddaten = record
RTitel, RAutor, RThema, RAufnahmekontext, RBlende, RBZ1, RBZ2, RBG1, RBG2,
RAuflösung, RSchlagworte, RBeschreibung, RDat1, RDat2, RDat3, RAFormat: string[100];
end;
Einlesen in den Record:
Delphi-Quellcode:
procedure Einlesen;
var
Titel, Autor, Thema, Aufnahmekontext, Blende, BZ1, BZ2, BG1, BG2,
Auflösung, Schlagworte, Beschreibung, Dat1, Dat2, Dat3, AFormat: Bilddaten;
begin
Titel.RTitel:= Form3.Edit13.Text;
Autor.RAutor:= Form3.Edit2.Text;
Thema.RThema:= Form3.Edit3.Text;
Aufnahmekontext.RAufnahmekontext:= Form3.Edit4.Text;
Blende.RBlende:= Form3.Edit1.Text;
BZ1.RBZ1:= Form3.Edit8.Text;
BZ2.RBZ2:= Form3.Edit9.Text;
BG1.RBG1:= Form3.Edit5.Text;
BG2.RBG2:= Form3.Edit6.Text;
Auflösung.RAuflösung:= Form3.Edit10.Text;
Schlagworte.RSchlagworte:= Form3.Edit7.Text;
Beschreibung.RBeschreibung:= Form3.Memo1.Text;
Dat1.RDat1:= Form3.ComboBox1.Text;
Dat2.RDat2:= Form3.ComboBox2.Text;
Dat3.RDat3:= Form3.ComboBox3.Text;
AFormat.RAFormat:= Form3.ComboBox6.Text;
end;
Nun habe ich keine Ahnung wie man den Record speichert, hab das mal so probiert:
Delphi-Quellcode:
procedure Speichern;
var datei: file of Bilddaten;
begin
if Form1.Savedialog1.Execute then
begin
try
assignfile(Datei,Form1.Savedialog1.FileName);
rewrite(datei);
write(datei, Datensatz);
finally
close(datei);
end;
end;
end;
Datensatz habe ich vorher global als Datensatz: Bilddaten deklariert.
Wie kann ich das Ganze(, wenn es überhaupt richtig gespeichert wurde) jetzt wieder durch Laden der Datei, in dem der record eigentlich gespeichert werden sollte, in den Editfeldern oder auch einem Memofeld ausgeben?
Später will ich allerdings nicht nur ein Record speichern, sondern mehrere, bräuchte da also einen Array...
Es handelt sich um ein Bilddatenverwaltungsprogramm, bei dem jeder User also "seine" Datei mit den gespeicherten Bilddaten wieder aufrufen, also mehrere Bilddaten verwalten können soll.
Ich hoffe ihr könnt mir helfen
Liebe Grüße
Giertier