دخول

**TF6M** · 20-08-2009, 11:15 AM

1- يا أخي لماذا التعقيد (التعقيد <> الإحترافية) .
2- لم أصحح كل البرنامج أو أعمل شبيه له فقط تعديلات :

كود :
procedure TForm1.Button3Click(Sender: TObject);
var F,T :File;
    Index : Word;
    buf : Byte;
begin
SD.Execute;
If (SD.FileName = '') Or (Lb.Count = 0) Then Exit;

{$I-}
AssignFile(F,Sd.FileName);
Rewrite(F,1);
Seek(F,0);
TrunCate(F);
{$I+}
If IoResult <> 0 Then Exit;

Application.ProcessMessages;
for Index := 0 to LB.Items.Count -1 do
 begin
{$I-}
AssignFile(T,Lb.Items[Index]);
ReSet(T,1);
Seek(T,0);
{$I+}
If IoResult <> 0 Then Exit;

While Not Eof(T) Do
 Begin
  BlockRead(T,buf,1);
  BlockWrite(F,buf,1);
 End;
CloseFile(T);
End;

CloseFile(F);
end;

بالتوفيق ,,

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة