Hallo,
ich habe das Beispiel von KodeZwerg noch einmal aufgegriffen und leicht angepasst.
Natürlich funktioniert der Code sehr gut, wenn der Aufbau der Zeile jedoch falsch ist, kann es hier zu Fehler kommen. Des Weiteren verwende ich in meinem Beispiel den Globalen Record FormatSettings. Möchte aber nicht verschweigen, dass diese Variante bei Verwendung von Threads durchaus zu Fehler führen könnte (möchte dies hier nicht weiter vertiefen). Weiterhin könnte man noch statt StrToFloatDef auch StrToFloat innerhalb von "try except end" verwenden, um auch einen Fehler ausgeben zu können, falls z.B. Buchstaben in der Zeile verwendet werden(in meinem Beispiel wird in dem Fall die Variable auf 0 gesetzt). "Try Finally end" habe ich verwendet, um sicherzustellen, dass nach Exit auch der Globale Wert für DecimalSeparator wieder auf den ursprünglichen Wert gesetzt wird.
Delphi-Quellcode:
type
TmyRec = packed record
x,y,z: Double;
end;
procedure TForm1.Button1Click(Sender: TObject);
const
//Values könnte vom Namen her auch ein Integer Array sein
strValues = String('10.75 6.69 20.50'); // als Beispiel für eines deiner Zeilen
var
sa: TArray<String>; //ist das gleiche, es muss jedoch nicht System.Types in die Uses eingefügt werden
rec: TmyRec;
//FormatSettings: TFormatSettings; Es kann auch die Globale Variable verwendet werden;
OldDecimalSeparator: Char;
begin
rec.x := 0.0;
rec.y := 0.0;
rec.z := 0.0;
OldDecimalSeparator := FormatSettings.DecimalSeparator;
try
FormatSettings.DecimalSeparator := '.';
sa := String(strValues).Split([' ']);
if high(sa) = 2 then
begin
rec.x := StrToFloatDef(sa[0],0);
rec.y := StrToFloatDef(sa[1],0);
rec.z := StrToFloatDef(sa[2],0);
end
else
begin
Memo1.Lines.Add('Fehlerhafte Anzahl!');
Exit;
end;
Memo1.Lines.Add('X: ' + rec.x.ToString);
Memo1.Lines.Add('Y: ' + rec.y.ToString);
Memo1.Lines.Add('Z: ' + rec.z.ToString);
finally
FormatSettings.DecimalSeparator := OldDecimalSeparator;
end;
end;