Wenns weiter hilft...hier mal die relevanten prozeduren.
kann da eigentlich nichts besondres entdecken.
Delphi-Quellcode:
//Bild wird geladen und der Dateiname im Editfeld gespeichert (funktioniert)
procedure TForm1.BBildClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
EBildPfad.Text := OpenPictureDialog1.FileName;
OpenPictureDialog1.FileName := '';
end;
end;
Delphi-Quellcode:
//Daten aus den Editfeldern werden ausgelesen und im Stringgrid gespeichert (funktioniert)
procedure TForm1.EintragSpeichern;
var
i : integer;
liste : TStrings;
begin
liste := TStringList.Create;
liste.Add(EVorname.Text);
... //noch ca. 20 andere
liste.Add(EBildPfad.Text);
for i := 0 to liste.Count - 1 do
begin
SGListe.Cells[i, SGListe.Row] := Liste.Strings[i];
end;
end;
Delphi-Quellcode:
//Stringgrid wird Zelle für Zelle in einer Textdatei gespeichert. (funktioniert nicht vollständig)
procedure TForm1.DateiSchreiben;
var
f: TextFile;
i, k: Integer;
begin
AssignFile(f, 'inhalt.txt');
Rewrite(f);
with SGListe do
begin
Writeln(f, ColCount);
Writeln(f, RowCount);
for i := 0 to ColCount - 1 do
for k := 0 to RowCount - 1 do
Writeln(F, Cells[i, k]);
end;
CloseFile(F);
end;
Hatte inzwischen den Gedanken, dass es evtl. an writeln() liegt und dort keine Pfade benutzt werden können. Kann natürlich auch völliger Unsinn sein. Wie gesagt, jedmöglicher Buchstabensalat funktioniert. Dateipfade nicht. Wenn du willst, kann ich dir auch gern das ganze projekt als rar schicken.
Edit: nein, es wird nur der Pfad gespeichert. Das Bild bleibt wo es ist.