حفظ جدول على شكل text

[dahmane26]

ماهي تعليمة حفظ بيانات جدول على شكل ملف text عند الضغط على الزر

[أبو معاذ]

[INDENT]
السلام عليكم ورحمة الله وبركاته ،
كفكرة أولية ، تحتاج إلى شيئين اثنين :
1- التعامل من الملفات النصية ، يمكنك رؤية الرابط التالي :
دلفي و الملفات النصية

2- ثم بعد ذلك تقوم بقراءة جدولك و كتابة المعلومات في الملف النصي .
مثال ذلك

كود :

While Not MyTable1.EOF do Begin كتابة السجل في الملف النصي. MyTable1.Next end

[/INDENT]

[onexite]

PHP كود :

procedure TForm1.mniImporter1Click(Sender: TObject);
 var
   i : Integer;
   StrArr :TArrayString;
begin
 sGauge1.Visible :=True;
if not DirectoryExists(CurrentDir+'database\') then CreateDir(CurrentDir+'database\') ;
sOpenDialog1.InitialDir:=CurrentDir+'database\';
sOpenDialog1.FileName:='Exporte_'+FormatDateTime('yyyy_mm_dd', Now)+'.txt';
if sOpenDialog1.Execute then
 with TStringList.Create do begin
   try

  LoadFromFile(sOpenDialog1.FileName);
  sGauge1.MaxValue:=Count-1;
    for i:=0 to Count-1 do begin
StrArr := Split(Strings[i] ,'|' );
if high(StrArr)>10 then 
if not Form2._exist(StrArr[7])  then begin
tbl1.Insert;
tbl1.FieldByName('Wilaya').Value:=StrArr[0];
tbl1.FieldByName('Type').Value:=StrArr[1];
tbl1.FieldByName('Organisme').Value:=StrArr[2];
tbl1.FieldByName('NOCCP').Value:=StrArr[3];
tbl1.FieldByName('Ncontrat').Value:=StrArr[4];
tbl1.FieldByName('Datecontrat').Value:=StrArr[5];
tbl1.FieldByName('Adresse').Value:=StrArr[6];
tbl1.FieldByName('Nom_et_Prenom').Value:=StrArr[7];
tbl1.FieldByName('Poste_occupe').Value:=StrArr[8];
tbl1.FieldByName('Tel').Value:=StrArr[9];
tbl1.FieldByName('Fax').Value:=StrArr[10];
tbl1.FieldByName('Email').Value:=StrArr[11];
tbl1.Post;
Application.ProcessMessages;
sGauge1.Progress:=i;
sGauge1.Suffix:='% , Importation de '+StrArr[7]+' ( '+inttostr(i+1)+'/'+inttostr(Count)+' enregistrements terminées )';
//Sleep(10);
end;
end;
finally
  Free;
  sGauge1.Visible:=False;
  end;
  end;
end 


[S.FATEH]

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

كود :

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;