نقل قول نوشته شده توسط 1485159 مشاهده تاپیک
آره منظورم همینه!!!
جست و جو کردم پیدا نکردم!
اونوقت باید فایل اجرایی رو تویه مسیر مشخص قرار بدیم!؟..
ممنون.
نقل قول نوشته شده توسط 1485159 مشاهده تاپیک
کسی نیست جواب بده!؟..
دوستان حق دارن شك كنن به سوالتون آخه سوالتون يا خيلي مبهمه يا خيلي ساده : اگه منظورتون load يه فايل text تو Memo هست كه كد ساده زير با فرض گذاشتن يه دكمه و يه memo رو فرمت جواب ميده (البته اين OpenDiolog فقط فايلهاي Text و سورس پاسكال رو فيلتر ميكنه اگه نميخواين اين اتفاق بيفته فيلتر رو برداريد) : 
procedure TForm1.Button1Click(Sender: TObject);

begin

  with TOpenDialog.Create(nil) do try

    Filter := 'Text files (*.txt)|*.TXT|Pascal files (*.pas)|*.PAS';

      if Execute then begin

      Memo1.Lines.LoadFromFile(FileName);

    end;

  finally

    Free;

  end;

end;
ولي اگه منظورتون يه چيز ديگه اس واضح تر بگيد تا توضيح داده بشه ...