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-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure TForm1.Button1Click(Sender: TObject);
var Text_Datei : TextFile;
s : String;
begin
Wait(3000); _8132_start_a_move( 0, 18000, 0, 3000, 0.1);
AssignFile (Text_Datei, 'C:\Test.txt');
Rewrite(Text_Datei);
s := A_Volt.Text;
Write(Text_Datei,s);
CloseFile(Text_Datei);
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; |
Moderiert von 
Peter Lustig: Delphi-Tags hinzugefügt
