Hallo zusammen!

Ich möchte Zahlentrippel aus einem Delphiprogramm in einm beweglichen (mit der Maus) 3D-Koordinatensystem darstellen. So etwas zu programmieren geht weit über meine Fähigleiten hinaus. Gibt es ein solches Progamm, in das ich die Zahlentrippel importieren kann?

Viele Grüße,
Mike

openGL

klick

danke, das sieht sehr gut aus.
ich habe auch das programm gnuplot gefunden. man kann die trippel als textdatei nach folgendem muster importieren.

1 2 3
4 5 6
7 8 9
4 5 7

also drei spalten mit zahlen.

wie speichere ich mit delphi zahlen auf diese weise in eine textdatei?
habe schon mit TIniFile experimentiert, doch mit WriteInteger(x,y,z) bekomme ich auch eckige klammern und gleichheitszeichen mit rein.

gruß,
mike

markieren

Delphi-Quellcode:

sl := TStringList.Create;
sl.Add(Format('%d %d %d', [x, y, z])); // x, y und z sind Ganzzahlen
{oder}
sl.Add(Format('%f %f %f', [x, y, z])); // x, y und z sind Kommazahlen
sl.SaveToFile(AFilename);

Die weiteren Möglichkeiten der Formatfunktion bitte in der Hilfe nachlesen.

danke, genau was ich brauche.
habe aber immer nur eine zeile in der datei stehen. was mache ich falsch?

nur so als beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

var
  x,y,z: extended;
  liste: TStringList;

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=0; y:=0; z:=0;

  repeat
    y:=sin(x);
    z:=cos(x);

    liste:=TStringList.Create;
    liste.Add(Format('%f %f %f', [x, y, z]));
    liste.SaveToFile('C:\Trippel.txt');
  
    x:=x+0.1;

  until x=10;
end;

gruß,
mike

SaveToFile() fügt nicht an, sondern überschreibt. Jeden Schleifendurchlauf eine neue StringList erstellen ist ein weiterer sehr offensichtlicher Fehler. Hier scheinen mächtig Grundlagen zu fehlen.

ok, jetzt funktioniert es.

Hallo, da bin ich noch mal.

Jetzt möchte ich die Stringlist wieder auslesen und jeder Variablen einen Wert zuordnen.
Wie mache ich das?

Gruß,
Mike

zusammenfalten · markieren

Delphi-Quellcode:

sl := Tstringlist.create;
sl.LoadfromFile(Datei);


for i:=0 to sl.Count-1 do
begin
  x := Copy(sl[i], 1, Pos(',', sl[i]));
  y := //mit copy, pos und posex n bissl beschäftigen
  z :=
end;