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;

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