gespeichert.
Den Code habe ich mit Lazarus so nachgebaut. Leider bekomme ich keine Daten aus den vorhandenen Dateien, z.B. profil.rwx ausgelesen. Was mache ich falsch, gibt es eine Möglickeit die Daten aus den Dateien .rwx zu lesen?
Mit Delphi funktioniert das...
Mit Lazarus nicht....
Vielen Dank vorab....
Code: Alles auswählen
type
re1 = record
re_ca : array[0..np] of double;
re_cw : array[0..np] of double;
re_cm : array[0..np] of double;
re_alfa : array[0..np] of double;
revorg : integer;{Re-Zahl}
azca, azcw, azalpha, azcm : integer; {Anzahl der Zeilen}
end;
type {Später speichern mit -> DateiV : file of re2}
re2 = record
realle : array[1..ReAnz] of re1;{10 maximal}
profilname : string[50];
herkunft : string[50];
alpha0_p, cmnull_p : double;
anzReZahl66 : integer;{hier tatsächliche Re - Anzahl speichern}
end;
var
rewerte : re2;
mit Delphi habe ich das so gespeichert:
procedure TProfilDatei.speichern;
begin
….
assignFile(DateiV, root1);
rewrite(DateiV);
close(DateiV);
assignFile(DateiV, root1);
{$i-}
reset(DateiV);
{$i+}
if IOResult <> 0 then
begin
MessageDlg('Fehler bei Dateibehandlung! ',mtError,[mbok],0);
exit;
end;
begin
write(DateiV,rewerte); {rewerte global aus prof1}
closeFile(DateiV);
end;{if}
end;{proz}
{Profil - Daten aus Record re2 b.z.w rewerte ***************************}
procedure TProfilDatei.laden;
begin
….....
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}
procedure TProfilDatei.speichern;
begin
{überschreibt alles}
assignFile(DateiV, root1);
rewrite(DateiV);
close(DateiV);
assignFile(DateiV, root1);
{$i-}
reset(DateiV);
{$i+}
if IOResult <> 0 then
begin
MessageDlg('Fehler bei Dateibehandlung! ',mtError,[mbok],0);
exit;
end;
begin
write(DateiV,rewerte); {rewerte global aus prof1}
closeFile(DateiV);
end;{if}
end;{proz}