Der Rest vom Code der wichtig sein könnte
Delphi-Quellcode:
Implementierung
Type
TDaten = record;
Feld1, Feld1: String[20];
end;
var
Stream: TFileStream;
Daten: array of TDaten;
Index: Byte = 0;
dsmax: Word = 1;
procedure dsSave
begin
with Daten[Index] do begin
Feld1 := Edit1.Text; // bei dsOpen ist es umgekehrt
Feld2 := Edit2.TExt;
end;
end;
procedure TForm
begin
SetLength(Daten, dsmax);
end;
Wenn ich die Datei in der FileListBox anklicke, wird der DateiName an Edit1 geschickt, der Rest der Felder bleibt leer und es geht nur noch
mit Anfang und Fehlermeldung[OK] weiter.
Die Fehlermeldung habe ich jetzt leider nicht zur Verfügung.
Dirk