Hi ich habe 2 buttons einen timer und eine Listbox, ich möchte das ich mit button 1 ich in einer txt datei eine zeile einfühgen kann und ein paar sekunden später diese ganze datei auslesen in eine listbox das auslesen soll sich dann im 5sek takt wiederholen.
Dann soll mit button 2 die eingetragende zeile wieder gelöscht werden und die 5sek auslese taktung aufhören.
zusätzlich können schon beliebig viele zeilen vorhanden sein aber er soll seinen eintrag wieder finden können.
könnte mir einer den code für die beiden buttons geben?
ich habe so angefangen aber es geht nix.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin with TStringList.Create do try LoadFromFile('http://www.nfcberlin.de/1.txt'); ListBox1.Clear; for i:=Count-1 downto 0 do ListBox1.Items.Insert(0,Strings[i]); finally Free; end; end; |
Moderiert von
Christian S.: Code- durch Delphi-Tags ersetzt.