مشكلة الدلفى والكتابه الى الملفات النصية

بسم الله الرحمن الرحيم

أخي هانى ابو مهند

حاول أن تغير إمتداد الملف النصي إلى

rtf

وأخبرني

عبد الوهاب

اخى عبد الوهاب

جزاكم الله خيرا

فعلا كما قلت وغير الامتداد ولم يحدث تغير

ان كان فى طريقه اخرى غير هذه ياريت حد يفيدنا بها وجزاه الله خيرا

والحل موجود معى ومن يريده يطلبه واكتبه هنا ان كان مفيد لاحد:)

السلام عليكم

أخي هاني مبروك لانك وجدت الحل ....بس :o

ممكن تعطينا مثال عن المشكلة ...وكيف تم تجاوزها ......

أخوكم:cool:

السلام عليكم ورحمة الله وبركاته

يا اخى فوكس انا لا افهمك من ناحية مثال على المشكله فان فى اول الموضوع

اظن انى وضحت المشكله وكتبت الكود فيها:D

وان كان غير ذلك فارجو ان توضح:cool:

المهم ان الكود الصحيح بالنسبه لوجهة نظر العبد لله هو

procedure TForm1.Button1Click(Sender: TObject);

var

diff,FileHandle,i,ii : integer;

fs: textfile;

short ,NetSalary ,TotalNetSalary : Currency;

begin

AssignFile(fs, test.txt');

ReWrite(fs);

Write(fs,'aot co. ');

write(fs,' ');

writeln(fs,FormatDateTime('yyyymmdd', now));

adodataset2.Open;

adodataset2.Sort:='codenumber ASC';

adodataset2.First;

TotalNetSalary:=0;

hash:=0;

for i:=1 to adodataset2.RecordCount do

begin

NetSalary:=0;

temp:= (ADODataSet2.FieldByName('IDNumber').text);

diff:= 8 - length(temp);

for ii:= 1 to diff do

temp := temp + ' ';

tempname:= ADODataSet2.FieldByName('FullNameEnglish').text;

diff:= 50 - length(tempname);

for ii:= 1 to diff do

tempname := tempname + ' ';

tempacount:= ADODataSet2.FieldByName('AcounNumber').text;

diff:= 15 - length(tempacount);

for ii:= 1 to diff do

tempacount := tempacount + ' ';

tempsalary:= ADODataSet1.FieldByName('BasicSalary').text;

Write(fs,tempacount);

Write(fs,tempsalary);

Write(fs,temp); // this is the correct way

Writeln(fs,tempname);

adodataset2.Next;

end;

Write(fs,'000'+INTTOSTR(adodataset2.RecordCount));

temp:=FormatCurr('00000000000.000',TotalNetSalary);

Write(fs,temp);

closefile(fs);

adodataset2.Close ;

end;