file.log
vow © (2002-10-30 20:24:00)
Здравствуйте Мастера !
Уже давно ищу ответ на этот вопрос !!!
Хотел бы чтобы после нажатия на буттон, все введенные данные
в эдитах и в мемках сохранялись в .log
И чтобы можно было бы указывать директорию .log файла.
+ еще один вопрос навязывается ! как распределить в .log
файле данные из memo и данные из эдитах ???
заранее благодарен !
TTCustomDelphiMaster (2002-10-30 21:07:00) [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
Наверх 
ЧАТ |
Орешник |
|
