Tstring, string probleme

[skaven]

procedure TForm1.schreibenClick(Sender: TObject);
var
steuerbefehl : string;
begin
apdcomport1.putstring(steuerbefehl);
apdcomport1.putstring(#13);
end;

procedure TForm1.DateieinlesenClick(Sender: TObject);
var
steuerbefehl : tstrings;
begin
steuerbefehl := TStringlist.Create;
with steuerbefehl do begin
loadfromFile('D:\test.txt');
try
finally
end;
end;
end;
end.

Hallo,
ich will mit dem Code einen Text aus einer datei einlesen und sie als variable (steuerbefehle) an putstring weitergeben, funzt aber nicht, schnief, wieso?

[sakura]

Editiere bitte obigen Beitrag und nutze die Delphi-Tags ......

[Ultimator]

Zuerst mal, nimm bitte die Delphi-Tags

Und dann hab ich noch ne Frage zu deinem Code:

Warum hast du in der unteren Prozedur einmal

Delphi-Quellcode:

try
finally
end;

Stehen?
Das ist irgendwie sinnlos

Und dann seh ich da in der gleichen Prozedur, dass du die Variable steuerbefehl vom Typ TStrings deklarierst.
Aber drunter schreibst du
steuerbefehl := TStringlist.Create; Das passt nicht zusammen. Außerdem ist TStrings nur eine "Grundlage" für z.B. die StringListe oder eben den String

Ach ja, wenn du nur eine Anweisung hast, brauchst du nicht

Delphi-Quellcode:

with steuerbefehl do begin 
loadfromFile('D:\test.txt');

zu schreiben, ds ist dann mahr Schreibarbeit, als wenn du gleich schreibst
steuerbefehl.loadfromfile('D:\Test.txt');

Mag sein, dass du jetzt nicht den ganzen Code gepostet hast, aber wenn dies der ganze Code ist, dann war das überflüssig

Ich hoff mal, ich hab keinen Schwachsinn geschrieben

[shmia]

Delphi-Quellcode:

steuerbefehl := TStringlist.Create; 
try
  steuerbefehl.LoadFromFile('D:\Test.txt');
  for i := 0 to steuerbefehl.Count-1 do
     apdcomport1.putstring(steuerbefehl[i]);
finally
  steuerbefehl.Free;
end;

[skaven]

Das war schon mal supi, aber wie mache ich das wenn ich mehrere zeilen habe und diese nach einer gewissen warte zeit hintereinander abfragen will, als ersten befehl lesen, bestimmte zeit warten, dann automatisch den nächsten et.
solange bis alle zeilen gelesen sind.

[fkerber]

Hi!

Eigentlich gilt ja neue Frage = neuer Thread, aber sind wir mal nicht so

Schau mal nach Delay


Ciao Frederic

[skaven]

DANKE, hat geklappt