Zeile mit mehreren Werten versch. Variablen zuweisen

[Alfred Neumann]

hallo,

möchte mehrere Werte aus einer Zeile (zB.Delphi Listbox) verschiedenen Variablen(arrays) zuweisen
Beispiel:
x y z
10.75 6.69 20.50
10.90 6.71 20.92
11.06 6.73 21.10

Die konkrete Frage: Wie lässt sich eine Text-Zeile in (hier drei) Zahlen-Werte trennen?
Kann mir jemand weiter helfen?
Danke schon mal

Grüsse Alfred

[KodeZwerg]

Ich würde zuerst deine ListBox items in seperate strings speichern, dann auf die einzelnen strings ein Split auf " " ausführen und schon hast du ein (string)-array.
Das array kannst du dann iterieren um zu versuchen die zahlen in gleitkommawerte umzuwandeln.

[TurboMagic]

Evtl. so was in der Art (D10.3.3 oder neuer):

Delphi-Quellcode:

var
  StrArr: TStringDynArray;
  XYZArr: Array[0..2] of Integer;
begin
  for var s in ListBox.Items do
  begin
    StrArr := s.Split('.');
    // und hier die einzelnen Array Elemente des String Arrays in dein anderes ARray kopieren
    for var i := 0 to Length(StrArr)-1 do
      XYZArr[i] := StrArr[i].ToInteger;

    // und dann XYZArr zu deiner Liste hinzufügen oder so 
  end;

Grüße
TurboMagic

[KodeZwerg]

Zitat von TurboMagic:

    StrArr := s.Split('.');

Damit wäre die Gleitkommazahl kaputt.

[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.

[TurboMagic]

Zitat von KodeZwerg:

Zitat von TurboMagic:

    StrArr := s.Split('.');

Damit wäre die Gleitkommazahl kaputt.

Ähm, ja, richtig lesen sollte man...
Aber man kann ja am ' ' splitten...
Das XYZArr muss dann natürlich Single oder DOuble oder so sein...

Grüße
TurboMagic

[KodeZwerg]

Ich glaub nicht das es so geht da er als Dezimaltrenner einen Punkt verwendet. (habs aber nicht getestet mit .ToDouble)