Edit Nesnesi Hakkýnda

[cagri_85]

slm

3. ve 4. satýlarda yazan yerleri edit nesnesi içinde nasýl gösterebilirim.'Http://www.msn.com/logo.gif'(edit2.text)); yaptým olmadý...

saygýlar,

1 procedure TForm1.Button1Click(Sender: TObject);
2 const
3 SourceFile = 'Http://www.msn.com/logo.gif';
4 DestFile = 'c:\temp\msn.gif';
5 begin
6 if DownloadFile(SourceFile, DestFile) then
7 begin
8 ShowMessage('Ýndirme iþlemi baþarýlý !');
9 ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
10 PChar(''), nil, SW_NORMAL)
11 end else begin
12 ShowMessage(Hata : ' + SourceFile)
13 end;
14 end;

[mrmarman]

3. ve 4. satılarda yazan yerleri edit nesnesi içinde nasıl gösterebilirim.'Http://www.msn.com/logo.gif'(edit2.text)); yaptım olmadı...

Sorunu anlamadım ama aklım iki ihtimal geliyor..
1. Bu satırı Edit2.text içinde nasıl göstericez ?

Kod: Tümünü seç

Edit2.Text := 'Http://www.msn.com/logo.gif';

2. Bu linkteki bir dosya adını Edit2'den alıp download edip aynı isimle yeni klasöre kopyalanmasını nasıl sağlıycaz ?

Kod: Tümünü seç

// Edit2.Text'de logo.gif yazıyorsa...
3 SourceFile = 'Http://www.msn.com/'+Edit2.Text; 
4 DestFile = 'c:\temp\'+Edit2.Text; 

[cagri_85]

Teþekkür ederim soruyu anlamýþsýnýz
bir soru daha sormak istiyorum izin verirseniz:

showmessage('Program kapatýlacak',mtConfirmation,[mbyes,mbno]);

program kapatýlacak yazýsýnýda edit içinden girilecek þekilde yapmak istiyorum nasýl yapabilirim saygýlar....

[bgoktas]

Kod: Tümünü seç

showmessage(edit1.text,mtConfirmation,[mbyes,mbno]); 

[rsimsek]

Aynı soruya farklı bir soru ile devam etmeyelim, yeni bir başlık açalım