Laden und Speichern von Kommazahlen möglich?

[Delphianfaenger]

Wie benutze ich denn eine typisierte Datei? Ist damit gemeint, dass ich eine Datei mit bestimmter Endung .Beispiel verwende?

Hier erstmal die Codeteile:

Delphi-Quellcode:

{-------------------------------------------------------------------------------
  Speicherung der Ein- und Ausgabewerte
-------------------------------------------------------------------------------}

procedure TFormPalettierung.Speichern1Click(Sender: TObject);
var Datei : TextFile;

begin

   //Eingabewerte

 if MessageDlg('Klicken Sie Ja, wenn Sie die Eingabewerte speichern möchten.',
    mtInformation,[mbYes,mbNo],0) = mrYes then
    begin
     if SaveDialog1.Execute then
     begin
      AssignFile(Datei,SaveDialog1.FileName);
      Rewrite(Datei);
      WriteLN(Datei,EditL.Text);
      WriteLN(Datei,EditB.Text);
      WriteLN(Datei,EditH.Text);
      WriteLN(Datei,EditM.Text);
      WriteLN(Datei,ComboBoxStandflaeche.itemindex);
      WriteLN(Datei,EditA.Text);
      WriteLN(Datei,ComboBoxPalette.itemindex);
      WriteLN(Datei,EditG.Text);
      WriteLN(Datei,EditGH.Text);
      WriteLN(Datei,EditPG.Text);
      WriteLN(Datei,EditN.Text);
      WriteLN(Datei,ComboBoxBlockstruktur.itemindex);
      WriteLN(Datei,EditSF.Text);

      CloseFile(Datei);
     end;

    end;

    // Ausgabewerte

 if MessageDlg('Klicken Sie Ja, wenn Sie die Ausgabewerte speichern möchten.',
    mtInformation,[mbYes,mbNo],0) = mrYes then
    begin

     if SaveDialog2.Execute then
     begin
      AssignFile(Datei,SaveDialog2.FileName);
      Rewrite(Datei);
      WriteLN(Datei,LabelAPL.Caption);
      WriteLN(Datei,LabelLagenP.Caption);
      WriteLN(Datei,LabelAnzahlP.Caption);
      WriteLN(Datei,LabelRest.Caption);
      WriteLN(Datei,LabelStapel.Caption);
      WriteLN(Datei,LabelStauch.Caption);
      CloseFile(Datei);
     end;
    end;

end;

{-------------------------------------------------------------------------------
  Laden der Ein- und Ausgabewerte
-------------------------------------------------------------------------------}

procedure TFormPalettierung.Laden1Click(Sender: TObject);
var Datei: TextFile;
    x : Single;
    y : integer;
    Button : Integer;
begin
  Button := Application.MessageBox('Klicken Sie OK, wenn Sie'#13#10'die Koordinaten einlesen möchten',
           'Koordinaten einlesen', mb_OKCancel+mb_DefButton1);
  if Button = IDOK then
  begin
    if OpenDialog1.Execute then
    begin
    AssignFile(Datei,OpenDialog1.Filename);
    Reset (Datei);
    ReadLn(Datei,x);
    EditL.Text := FloatToStr(x);
    ReadLn(Datei,x);
    EditB.Text := FloatToStr(x);
    ReadLn(Datei,x);
    EditH.Text := FloatToStr(x);
    ReadLn(Datei,x);
    EditM.Text := FloatToStr(x);
    ReadLn(Datei,y);
    ComboBoxStandflaeche.itemindex := y;
    ReadLn(Datei,x);
    EditA.Text := FloatToStr(x);
    ReadLn(Datei,y);
    ComboBoxPalette.itemindex := y;
    ReadLn(Datei,x);
    EditG.Text := FloatToStr(x);
    ReadLn(Datei,x);
    EditGH.Text := FloatToStr(x);
    ReadLn(Datei,x);
    EditPG.Text := FloatToStr(x);
    ReadLn(Datei,x);
    EditN.Text := FloatToStr(x);
    ReadLn(Datei,y);
    ComboBoxBlockstruktur.itemindex := y;
    ReadLn(Datei,x);
    EditSF.Text := FloatToStr(x); //Kommazahl 


    CloseFile(Datei);
    end;

    if OpenDialog2.Execute then
    begin
    AssignFile(Datei,OpenDialog2.Filename);
    Reset (Datei);
    ReadLn(Datei,x);
    LabelAPL.Caption := FloatToStr(x);
    ReadLn(Datei,x);
    LabelLagenP.Caption := FloatToStr(x);
    ReadLn(Datei,x);
    LabelAnzahlP.Caption := FloatToStr(x);
    ReadLn(Datei,x);
    LabelRest.Caption := FloatToStr(x);
    ReadLn(Datei,x);
    LabelStapel.Caption := FloatToStr(x); //Kommazahl 
    ReadLn(Datei,x);
    LabelStauch.Caption := FloatToStr(x); //Kommazahl 
    CloseFile(Datei);
    end;

  end;
  if Button = IDCANCEL then ShowMessage('Kein Wunsch zum Lesen.');
end;

in sämtliche Edit-Felder werden nur Zahlen eingetragen kein Text. Bei Patties Code sehe ich leider nicht durch : /