Hier der Quelltext zum Hochladen
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
begin
TreeView1.LoadFromFile('c:\Alarmgeber\Test.txt');
end;
Hier der Quelltext um die Datei zu bearbeiten:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
Shellexecute(form1.handle,nil,'NOTEPAD.EXE','C:\Alarmgeber\Test.txt','',1);
end;
Mehr Quelltext ist nicht vorhanden!
Halt noch die Komponente TreeView1, Edit1, Button
Hier der Quelltext der mich ärgert:
Delphi-Quellcode:
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
if Assigned (TreeView1.Selected) then
Edit1.Text := Copy (TreeView1.Items[TreeView1.Selected.AbsoluteIndex].Text, 1, Edit1.MaxLength);
end;