اموزش ذخیره اطلاعات یک جدول از دیتا بیس در فایل متنی در دلفی

دیتا بیس

سلام.یه سورس کد براتون اماده کردم که میتونید  اطلاعات یک جدول از دیتا بیس در فایل متنی در دلفی ذخیره کنید.میتوانید از سایت بزرگ ام اس پی سافت دانلود کنید.

دیتا بیس

procedure TForm1.Button1Click(Sender: TObject);

  procedure GrabaDelimitado( Datos:TDatasource;
                             Fichero: string;
                             Delimitador:char);
  var
     f      : textfile;
     n      : integer;
     Linea  : string;
  begin
    AssignFile(f,Fichero);
    Rewrite(f);

    with Datos.DataSet do
    begin
      DisableControls;
      {Vamos al primer registro}
      {First record}
      First;
      {Vamos registro a registro, hasta el final}
      {From first to last, one by one}
      while not Eof do
      begin
        Linea:='';
        {Recorremos todos los campos del registro}
        {all field of the record}
        for n:=0 to FieldCount-1 do
        begin
          if (Fields[n] is TBlobField) or
             (Fields[n] is TGraphicField) or
             (Fields[n] is TMemoField) or
             (Fields[n].IsNull)
          then
            Linea:=Linea+Delimitador
          else
            Linea:=Linea+Delimitador+Fields[n].AsString;
        end; {Del For}
        Linea:=Copy(Linea,2,Length(Linea)-1);
        Memo1.Lines.Add(Linea);
        writeln(f,Linea);
        Next;
      end; {Del While}
      EnableControls;
    end; {Del With}
    CloseFile(f);
  end;

begin
  GrabaDelimitado(DataSource1,'c:\Data_Txt_Mt85.txt',',');
end;

مسعود شریفی پور

از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.

نوشته‌های مرتبط

دیدگاه‌ها

*
*

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.

    زبانزد دات کام پاسخ

    ممنون از سایت خوبتون.استفاده کردیم

    حسن دق مرگ پاسخ

    ای ول داداش...

      مسعود پاسخ

      خواهش حسن اقا :D