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

Loading...
دیتا بیس

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

دیتا بیس

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;


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

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

آخرین مطالب و تخفیفات در کانال تلگرام :) کانال تلگرام ام اس پی سافت
مطالب مرتبط
ديدگاه خود را ارسال کنيد


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

محبوب ترين ويدئو هاي انلاين
دوره برنامه نویسی فروشگاه اینترنتی
  • تعداد اعضا 80k
  • قيمت دوره۱۳۰,۰۰۰ تومان
  • امتيازدهي
    1 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 5( 5٫00 از 1 رای )
    Loading...
دوره آموزشی سیستم ثبت سفارش آنلاین
  • تعداد اعضا 80k
  • قيمت دوره--
  • امتيازدهي
    1 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 5( 5٫00 از 1 رای )
    Loading...
دوره طراحی سیستم مدیریت مشتریان
  • تعداد اعضا 80k
  • قيمت دوره۶۵,۵۰۰ تومان
  • امتيازدهي
    1 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 51 vote, average: 5٫00 out of 5( 5٫00 از 1 رای )
    Loading...