دخول

**S.FATEH** · 04-01-2015, 05:09 PM

ممكن تضع محاولتك ؟ !!

كود :
procedure TForm1.SaveToTextFileClick(Sender: TObject);
var
  StringList: TStringList;
begin
  StringList:= TStringList.Create;
  try

    YouTable.DisableControls;
    YouTable.First;
    while not YouTable.Eof do
    begin
      StringList.Append(YouTable.FieldByName('COLUMN_NAME1').AsString
                        +
                        YouTable.FieldByName('COLUMN_NAME2').AsString
                        +
                        YouTable.FieldByName('COLUMN_NAME3').AsString);

      YouTable.Next;
    end;
    YouTable.EnableControls;

    StringList.SaveToFile('c:\test.txt');
  finally
    StringList.Free;
  end;
end;

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