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

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