Registriert seit: 1. Feb 2018
3.691 Beiträge
Delphi 11 Alexandria
|
AW: Zeile mit mehreren Werten versch. Variablen zuweisen
19. Nov 2022, 13:18
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.
|
|
Zitat
|