Textdatei anlegen...

[Teddyman]

Hallo zusammen, habe folgende Frage:
Habe ein kleines Programm geschrieben, womit ich Schrittmotoren positionieren kann. Bei jeder Position möchte ich einen Sensoren einlesen und den Wert in eine Textdatei speichern.
Mit der Positionierung 1 (siehe Code) klappt es schon.
Nun möchte ich auch für die Positionierung 2 den Sensorwert in die selbe Textdatei schreiben, ohne den vorherigen Wert zu überschreiben.
Kann mir jemand helfen?
Danke.Grüße.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Text_Datei : TextFile;
s : String;
begin 

   //Start Positionierung 1
   Wait(3000);            // axis,  pos,   svel,  mvel,   Tacc
   _8132_start_a_move( 0,   18000,  0,    3000,   0.1);

   //In Textdatei schreiben
   AssignFile (Text_Datei, 'C:\Test.txt');
   Rewrite(Text_Datei);
   s := A_Volt.Text;
   Write(Text_Datei,s);
   CloseFile(Text_Datei);

   //Start Positionierung 2
   Wait(9000);
   _8132_start_a_move( 0,   13000,  0,    2000,   0.3);
   
   {Hier soll der nächste Wert bei dieser Position in die Test.txt geschrieben werden,
   ohne den vorherigen zu überschreiben}

end;

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Cuchulainn]

Versuch es mal so:

Delphi-Quellcode:

AssignFile (Text_Datei, 'C:\Test.txt'); 
Append(Text_Datei);
Writeln('Hier steht der Text');
Close(Text_Datei);

Mit Append wird die Datei vorbereitet, so dass Text angehängt werden kann.

[glkgereon]

nimm doch erst mal ne richedit zum speichern

Delphi-Quellcode:

richedit1.lines.add('Hallihallo')

und beim beenden

Delphi-Quellcode:

richerdit1.lines.savetofile('Ichhabímmernochnichtgepeiltworumsbeidemprogüberhauptgeht.txt')

und, wie die textdatei besagt, was soll das tun?
was sind (auf delphi bezogen) schrittmotoren???

[fkerber]

Hi!

Ich denke, dass Schrittmotoren nicht wirklich was mit Delphi zu tun haben, aber er steuert diese über sein Programm an, bekommt Sensorwerte geliefert und will die speichern.

Ciao fkerber

[glkgereon]

achsooooo
ja gut, dann...
aber meine version würde doch funzen, oder???

[Sharky]

Hai Teddyman,

ich würde die Positionen in eine StringList schreiben und die dann speichern.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl_positionen : TStringlist;
begin
  sl_positionen := TStringList.Create;
  try
    sl_positionen.Clear;
    sl_positionen.Add('Position des Motors');
    .
    .
    .
    sl_positionen.SaveToFile('c:\mypositionen.txt');
  finally
    FreeAndNil (sl_positionen);
  end;
end;