Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
9. Sep 2009
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
aRec: TFahrzeugdaten;
pAuto: IAuto;
begin
if OpenDialog1.Execute then
begin //<-- wichtig!
AssignFile(MyFile, OpenDialog1.FileName);
Reset(MyFile);
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
9. Sep 2009
Ich bin im Moment krank geschrieben, von daher hab ich jede Menge Zeit ;)
Also: wie der Name schon sagt, besteht eine typisierte Datei aus Datensätzen eines bestimmten Typs. Dieser ist im Normalfall als Record definiert. Beispiel:
type
TMyRec = record
Name: shortstring; //NICHT string, da sonst nur der Zeiger gespeichert würde
Nummer: integer;
ZahlmitKomma: double;
end;
...
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
9. Sep 2009
@Klaus: Das Thema Datenbank hatte ich bewusst vermieden :zwinker:
@Schnittcher: Was genau soll ich Dir erklären?
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
9. Sep 2009
Da es sich ja eh um reine Textspeicherung handelt, könnte man auch eine TStringlist verwenden. Außerdem fällt mir auf, dass da wohl noch ein begin-end fehlt.
Wenn der Dialog abgebrochen wird, dürfte das Rewrite in die Hose gehen. Desweiteren würde ich einen try-finally-Block einsetzen, in dessen finally das CloseFile steht.