tümü

ctrl v zamanı panpiler

  1. 101.
    0
    if saveislem. Execute then { Display Save dialog box}
    begin
    if saveislem. FileName <> '' then
    begin
    try
    ExportGrid4ToExcel(saveislem. FileName, gryapilanlar, False, True, True, 'xls');
    Application. MessageBox(Pchar('Günlük Yapılan işlemler Listesi ' + saveislem. FileName + ' Olarak Kaydedildi!'), 'Bilgi', MB_OK + MB_ICONINFORMATION);
    except
    Application. MessageBox('Kaydedilemedi!', 'Hata', MB_OK + MB_ICONERROR);
    end;
    end;
    end;

    hagibtir
    ···
    #94273567 şikayet
   tümünü göster