Open.Dialog!

Hey!!
Jeg har en Open.Dialog sammen med et Edit felt,
hvordan får dialogen til at udskrive stien til den valgte i mit Edit felt ??
Altså hvis jeg vælger at åbne en fil der ligger i c:\\fil.txt så skal den bare skrive c:\\fil.txt i mit edit felt!!!

Håber i kan hjælpe!!!

[Redigeret d. 23/01-04 17:31:12 af Morten Thøgersen]

Hey!!
Jeg har en Open.Dialog sammen med et Edit felt,
hvordan får dialogen til at udskrive stien til den valgte i mit Edit felt ??
Altså hvis jeg vælger at åbne en fil der ligger i c:\\fil.txt så skal den bare skrive c:\\fil.txt i mit edit felt!!!

Håber i kan hjælpe!!!

[Redigeret d. 23/01-04 17:31:12 af Morten Thøgersen]

Kode 

if OpenDialog1.Execute then
  Edit1.Text := OpenDialog1.FileName;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
memo1.lines.loadfromfile(OpenDialog1.Filename);
end;

Med venlig hilsen
Frede_Manden

Ha Ha

Øh nej det kan jeg ikke.

Men jeg vil gerne have dine UP.

Tak.

Ha Ha

edit1.text := OpenDialog1.Filename;

Det skulle gøre det
Hilsen CHadi
Mit lykketal er 2959

Hey!!
Jeg har en Open.Dialog sammen med et Edit felt,
hvordan får dialogen til at udskrive stien til den valgte i mit Edit felt ??
Altså hvis jeg vælger at åbne en fil der ligger i c:\\fil.txt så skal den bare skrive c:\\fil.txt i mit edit felt!!!

Håber i kan hjælpe!!!

[Redigeret d. 23/01-04 17:31:12 af Morten Thøgersen]

Dette skulle klare jobben:

Kode 

if OpenDialog1.Execute then
  Edit1.Text := OpenDialog1.FileName;

------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
memo1.lines.loadfromfile(OpenDialog1.Filename);
end;

Med venlig hilsen
Frede_Manden

Ville det ikke vært bedre med:
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.Filename);

???
Hvis du ikke setter in if .. then, så vil den loade filen som sist ble loadet hvis man klikker "Avbryt" i dialogboksen

DiZpel

[Redigeret d. 23/01-04 22:45:20 af DiZpel]