Скачать: CL | DM;

Rxlib   Найти похожие ветки 

← →
Pavel ©   (2004-06-05 20:05) [0]

Всем привет!

Помогите пожайлуста как работать (из Rxlib)
с FILENAMEEDIT или DirectoryEdit ?????
Интересуют конкретные примеры (можно URL). Спасибо

---

← →
vv_fran   (2004-06-06 14:32) [1]

У FILENAMEEDIT есть свойства FileName, InitialDir с ними и работай.

edFileName -  FILENAMEEDIT

 edFileName.InitialDir :=  gsCurrDir+"Export";
 edFileName.Text := edFileName.InitialDir+"\"+"Exp"+IntToStr(gnZR)+".exp";

можно так:

   if UpperCase(ExtractFileExt(edFileName.FileName)) = ".EXP" then
   begin
     try
       if sStrExp.Count > 10000 then begin// большой файл сохраняем построчно
       AssignFile( FileOut,edFileName.FileName);
       Rewrite(FileOut);
         try
           for i := 0 to sStrExp.Count - 1 do
           begin
           WriteLn(FileOut,sStrExp.Strings[i]);
           end;//for
         finally
           try
           CloseFile(FileOut);
           except
           gbOK := False;
           ShowMessage("Не могу создать файл!");
           end;
         end;
       end else begin
       sStrExp.SaveToFile(edFileName.FileName);
       gbOK := True;
       end;
     except
     gbOK := False;
     ShowMessage("Не могу создать файл!");
     end;
   end
   else begin
   gbOK := False;
   ShowMessage("Не верное имя файла!");
   end;
  end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c