Hallo Winni,
ich hatte mich vor sehr langer Zeit mal mit OOP ObjektPascal beschäftigt und ein
Rechenprogramm für Tragflügel programmiert, das ich jetzt gerne auf Lazarus portieren möchte.
Ob ich das hinbekomme? Mal schauen, ich gebe alles
Das sind zwei Dateiroutinen für die Modelldaten und für die Profildaten die in zwei Instanzen? laufen.
TDatedatei und TProfilDatei.
Raimund
procedure TDatenDatei.laden;
begin
dateiname1 := Dateiform.edit1.text;
root1 := (expandFileName(dateiname1)); {Pfad ermitteln}
dateiform.pfadname.caption := root1;
MessageDlg('Ich lade: '+ root1, mtInformation,[mbNo, mbYes],0);
assignFile(DateiV, root1); {Pfad verbinden}
{$i-}
reset(DateiV); {Datei öffnen}
{$i+}
if IOResult <> 0 then
begin
MessageDlg('Fehler bei Dateibehandlung! ',mtError,[mbok],0);
exit;
end;
begin
while not eof(DateiV) do {bis Dateiende}
read(DateiV,pdat^); {Werte lesen}
closeFile(DateiV); {Datei schließen}
end;{if}
end;{proz}
________________________________________________
procedure TProfilDatei.laden;
begin
profil32.felderleeren;{verlagert aus prof2, da Probleme beim speichern}
dateiname1 := Dateiform.edit1.text;
root1 := (expandFileName(dateiname1)); {Pfad ermitteln}
dateiform.pfadname.caption := root1;
MessageDlg('Ich lade: '+ root1, mtInformation,[mbNo, mbYes],0);
assignFile(DateiV, root1); {Pfad verbinden}
{$i-}
reset(DateiV); {Datei öffnen}
{$i+}
if IOResult <> 0 then
begin
MessageDlg('Fehler bei Dateibehandlung! ',mtError,[mbok],0);
exit;
end;
begin
while not eof(DateiV) do {bis Dateiende}
read(DateiV,rewerte); {globaler Record aus prof1}
closeFile(DateiV); {Datei schließen}
end;{if}
end;{proz}
Verein
Links
Suche