Zeile mit mehreren Werten versch. Variablen zuweisen

[KodeZwerg]

Delphi-Quellcode:

type
  TmyRec = packed record
    x,y,z: Double;
  end;

procedure TForm4.Button1Click(Sender: TObject);
const
  values = String('10.75 6.69 20.50'); // als beispiel für eines deiner zeilen
var
  sa: TStringDynArray;
  rec: TmyRec;
  i: Integer;
  FormatSettings: TFormatSettings;
begin
  rec.x := 0.0;
  rec.y := 0.0;
  rec.z := 0.0;
  FormatSettings.DecimalSeparator := '.';
  sa := String(values).Split([' ']);
  for i := Low(sa) to High(sa) do
    begin
      Memo1.Lines.Add('Value #' + IntToStr(i) + ' = ' + sa[i]);
      case i of
        0: rec.x := StrToFloat(sa[i], FormatSettings);
        1: rec.y := StrToFloat(sa[i], FormatSettings);
        2: rec.z := StrToFloat(sa[i], FormatSettings);
      end;
    end;
  Memo1.Lines.Add('X: ' + FloatToStr(rec.x));
  Memo1.Lines.Add('Y: ' + FloatToStr(rec.y));
  Memo1.Lines.Add('Z: ' + FloatToStr(rec.z));
end;

Soeben getestet.