18-12-2014, 09:20 PM
19-12-2014, 07:35 AM
[INDENT]
السلام عليكم ورحمة الله وبركاته ،
كفكرة أولية ، تحتاج إلى شيئين اثنين :
1- التعامل من الملفات النصية ، يمكنك رؤية الرابط التالي :
دلفي و الملفات النصية
2- ثم بعد ذلك تقوم بقراءة جدولك و كتابة المعلومات في الملف النصي .
مثال ذلك
[/INDENT]
السلام عليكم ورحمة الله وبركاته ،
كفكرة أولية ، تحتاج إلى شيئين اثنين :
1- التعامل من الملفات النصية ، يمكنك رؤية الرابط التالي :
دلفي و الملفات النصية
2- ثم بعد ذلك تقوم بقراءة جدولك و كتابة المعلومات في الملف النصي .
مثال ذلك
كود :
While Not MyTable1.EOF do
Begin
كتابة السجل في الملف النصي.
MyTable1.Next
end22-12-2014, 04:18 PM
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
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;