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-Quellcode:

Delphi-Tags

...:cat:...

[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

Delphi-Quellcode:

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

Delphi-Quellcode:

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 :wink:

Schau mal nach Delay


Ciao Frederic

[skaven]

DANKE, hat geklappt