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]