Textdatei zerlegen

[marabu]

Übrigens: alle Pascal-Dialekte - auch Delphi - verarbeiten Zahlen im nativen Format (Dezimalpunkt, nicht Komma) sehr effektiv:

Delphi-Quellcode:

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i: Integer;
  x, y: Extended;

begin
  DecimalSeparator := '.'; // adjust output
  while not Eof do
  begin
    ReadLn(i, x, y);
    WriteLn(Format('%d %.1f %.1f', [i, x, y]));
  end;
end.

Grüße vom marabu