Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   OpenDialog (https://www.delphipraxis.net/99463-opendialog.html)

crz 12. Sep 2007 14:36


OpenDialog
 
Hallo ;)
ich versuche im Moment eine Datei abzuspeichern, die im Stream ist.
Dies klappt auch so weit. Nur habe ich schwierigkeiten beim Laden der einzelnen Dateien.
Das öffnen geht ja über openDialog, aber wie sage ich dem Programm am besten das er auch diese Datei, die ausgewählt würde, laden soll, und in einem entsprechenden Editfeld anzeigen soll ? (es handelt sich nur um Textdokumente).

Kann mir jemand vll einen Tipp geben? Danke;)

s-off 12. Sep 2007 14:41

Re: OpenDialog
 
Hallo,

worum geht es Dir jetzt genau? Darum, wie Du den Inhalt von Textdateien in einem Editfeld anzeigen kannst? Wenn ja, dann nimmst Du ein TMemo, und füllst dieses mit
Delphi-Quellcode:
   Memo1.Lines.LoadFromFile(OpenDialog1.Filename);

DP-Maintenance 12. Sep 2007 19:24

DP-Maintenance
 
Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage

quendolineDD 12. Sep 2007 20:28

Re: OpenDialog
 
Falls es wirklich in ein Edit gehen soll und die Textdatei einzeilig ist, dann kannst du es auch so machen:
Delphi-Quellcode:
...
var
atxtline: TStringList;
begin
 atxtline.Create;
 atxtline.LoadFromFile(OpenDialog1.Filename);

 Edit1.Text:= atxtline.Items[0];

 atxtline.Free;
end;

s-off 13. Sep 2007 07:34

Re: OpenDialog
 
Zitat:

Zitat von quendolineDD
Falls es wirklich in ein Edit gehen soll und die Textdatei einzeilig ist, dann kannst du es auch so machen:
Delphi-Quellcode:
[...]
 Edit1.Text:= atxtline.Items[0];
[...]
end;

Du meinst
Delphi-Quellcode:
 Edit1.Text := atxtline.Strings[0]
Desweiteren solltest Du alles nach dem TStringlist.Create in einen Try-Finally-Block packen und im Finally-Teil dann die erzeugte Stringliste wieder freigeben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz