ورود / ثبت نام
0
0

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

401 بازدید

دیتا بیس

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

دیتا بیس

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;
  • پسورد: www.mspsoft.com
آیا این مطلب را می پسندید؟
https://www.mspsoft.com/?p=1807
اشتراک گذاری:
واتساپتوییترفیسبوکپینترستلینکدین
مسعود شریفی پور
از سال 88 که با برنامه نویسی آشنا شدم خیلی علاقه مند بودم یک بستر آموزشی بسازم در فضای وب و به انتشار آموزش های در این زمینه بپردازم.حالا یک تیم داریم و با قدرت رو به جلو حرکت میکنیم.
مطالب بیشتر
برچسب ها:

نظرات

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

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *