کمک در تغییر سورس

[1072300]

با سلام به همه دوستان و اساتید محترم
سورس زیر بخشی از یک برنامه خارجی است که صفحه OpenDialog1 را باز می کند و فایلی را می خواند و تغیراتی را اعمال می کند بنده قصد دارم صفحه OpenDialog1 را حذف کنم و برنامه فایل را از داخل پوشه report که در کنار فایل exe برنامه قرار دارد را بخواند و تغییرات را اعمال کند.
متشکرم:خجالت::گیج::عصبانی::ن� �راحت::عصبانی++::گریه:

procedure TForm1.Button1Click(Sender: TObject);
var
EncStr: TEnStream;
begin
if OpenDialog1.Execute then
begin
EncStr := TEnStream.Create(
OpenDialog1.FileName, fmOpenRead);
try
Memo2.Lines.LoadFromStream (EncStr);
finally
EncStr.Free;
end;
end;

[Pascal]

لطفاٌ در مورد TEnStream توضيح بده ؟ آيا خودت تعريف كردي ؟
كدي كه با TFileStream به ذهن مامد اين كد است ببين مفيد هست يا خير؟



procedure TForm1.Button1Click(Sender: TObject);
Var
Path:String;
S:TFileStream;
begin
Path:=ExtractFilePath(Application.ExeName)+'Report \YourFileName';
S:=TFileStream.Create(path,fmOpenRead);
memo1.Lines.LoadFromStream(s);
end;

[1072300]

متشکرم
اما این قسمت از برنامه فایل کد شده را از کد خارج می کند می خواهم دقیقا همین کار را انجام دهد بدونه باز شدن صفحه ی OpenDialog1 که کد شما این کار را انجام نمی دهد.
متشکرم.:خجالت::خجالت:

[Pascal]

متشکرم
اما این قسمت از برنامه فایل کد شده را از کد خارج می کند می خواهم دقیقا همین کار را انجام دهد بدونه باز شدن صفحه ی OpenDialog1 که کد شما این کار را انجام نمی دهد.
متشکرم.:خجالت::خجالت:

ان كد هيچ Opendialog ‌اي را باز نمي كند . فقط كافيه به جاي Yourfilename اسم فايل را بنويسيد
اگر امكان داره سورس را ضميمه كن

[1072300]

کد پست 1 منظورم بود لطفا کد پست یک را دوباره مرور کنید می خواهم کد شما فایل کد شده را از کد خارج کند. بدونه باز کردن پنجره OpenDialog1 .
متشکرم

[Pascal]

لطفا اگر ممكن است سورس برنامه راضميمه كن . من كه فايل كد شده اي نديدم !
فقط يه چيز ناشناس هست كه آن هم EncStr: TEnStream است.

[1072300]

EncStr: TEnStream این دقیقا همان کد کردن است حجم کد زیاده و متاسفانه نمی توانم آپلود کنم فقط می خواهم تمام مراحل انجام شود بدون باز شدن صفحهOpenDialog1 اگر می تونی کمکم کن
متشکرم

[Pascal]

procedure TForm1.Button1Click(Sender: TObject);
var
EncStr: TEnStream;
Path:String;
begin
Path:=ExtractFilePath(Application.ExeName)+'Report \YourFileName';
EncStr := TEnStream.Create(
Path, fmOpenRead);

try
Memo1.Lines.LoadFromStream (EncStr);
finally
EncStr.Free;
end;
end;

[1072300]

متشکرم
یک سوال کوچیک دیگه
اگر به جای Memo1 بخوام Label1 قرار بدم کد چطوری تغییر می کند :خجالت::خجالت:
متشکرم

[Pascal]

مي خواهي همه ي متن را فقط در يك ليبل بنويسي؟ اگر براي اين كار مي خواهي


procedure TForm1.Button1Click(Sender: TObject);
var
EncStr: TEnStream;
Path:String;
SL:TStringList;
begin
SL:=TstringList.Create;
Path:=ExtractFilePath(Application.ExeName)+'Report \YourFileName';
EncStr := TEnStream.Create(
Path, fmOpenRead);
try
SL.LoadFromStream(EncStr);
label1.Caption :=sl.Text;
finally
EncStr.Free;
end;
end;

[1072300]

متشکرم
مشکل کاملا حل شد
:تشویق::تشویق::تشویق::تشویق::� �شویق::تشویق::تشویق::تشویق::ت� �ویق::تشویق::تشویق::تشویق::تش� �یق::تشویق::تشویق::تشویق::تشو� �ق::تشویق: