1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

<span style="font-weight: bold">procedure</span> TFPara.Schreibe_Dat;
<span style="font-weight: bold">var</span>
 f01 : TextFile;
 i   : integer;
 dat : string;
begin
 dat := 'test.dat';
 SetLength(zahl , nz + 1); //nz-am anfang festzulegende zahl
 AssignFile(f01 , ppf + dat);
 if FileExists (ppf + 'initest.ini') then begin //ppf-projektpfad
  if Vergleich(1, dat) then begin //prüfung
   //Ausgang_Ansicht;
   exit;
  end;
 end;
 Rewrite(f01);
 Writeln(f01, nx,'          ', ny,'          ', nz);
 for i := 1 to nz do begin
  if RB04.Checked then begin
   zahl[i] := StrToFloat(Tab01.Cells[1 , i]);
  end;
  Writeln(f01, zahl[i]);
 end;
 CloseFile(f01);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function TFPara.Lese_Dat(wahl : integer) : boolean;
var
 f01   : TextFile;
 i : integer;
 dat   : string;

begin
 result := False;
 dat := 'test.dat';
 SetLength(zahl, nz + 1);
 AssignFile(f01 , ppf + dat);
 Reset(f01);
 Readln(f01, v_nx, v_ny, v_nz);
 if Vergleich(1 , dat) then begin
  //Ausgangs_Ansicht;
  result := True;
  exit;
 end;
 case wahl of
  1:  for i := 1 to nz do begin
       Readln(f01, zahl[i]);
      end;
  2:  exit;
 end;
 CloseFile(f01);
end;