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

file.log   Найти похожие ветки 

← →
vow   (2002-10-30 20:24) [0]

Здравствуйте Мастера !
Уже давно ищу ответ на этот вопрос !!!

Хотел бы чтобы после нажатия на буттон, все введенные данные в эдитах и в мемках сохранялись в .log
И чтобы можно было бы указывать директорию .log файла.

+ еще один вопрос навязывается ! как распределить в .log файле данные из memo и данные из эдитах ???

заранее благодарен !

---

← →
TTCustomDelphiMaster ©   (2002-10-30 21:07) [1]

> Хотел бы чтобы после нажатия на буттон, все введенные данные
> в эдитах и в мемках сохранялись в .log


F1 - Rewrite procedure - Example


> И чтобы можно было бы указывать директорию .log файла.


Rouse_ © (08.10.02 20:17)

function TForm4.SelectShare: String;
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form4.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := "Please specify a directory";
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
GlobalFreePtr(lpItemID);
end;
if TempPath <> "" then Result := TempPath;
end;


> + еще один вопрос навязывается ! как распределить в .log
> файле данные из memo и данные из эдитах ???


Например так
[Memo1]
Этот текст из Memo1

[Edit1]
Этот текст из Edit1

---

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

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



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