Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Вниз

*.log, каким образом?   Найти похожие ветки 

 
Ahmad   (2002-09-02 23:45) [0]

Уважаемые Мастера!
При повторном сохранении текста в файл, в частности TMemo:
Memo1.Lines.SaveToFile(Application.GetNamePath+"1.log");
предыдушая запись заменяется на нынешнюю, а нужно чтобы оно просто дабовлялось, как в .log файлах.
Каким образом это сделать?
Заранее всем спасибо!


 
RV   (2002-09-03 00:06) [1]

открыть лог
дописать в конец
закрыть

reset(f);
append(f);
myVar:=memo1.Lines.GetText;
write(f,myVar);
close(f);


 
Ahmad   (2002-09-03 02:19) [2]

>RV
а как описать f, просто:
var f: File;
f:=Application.GetNamePath+"1.log";
?


 
Almaz   (2002-09-03 02:44) [3]

var
F: TextFile;
begin
AssignFile(F, Application.GetNamePath + "1.log");
Append(F);
Write(F, Memo1.Lines.GetText);
CloseFile(F);
end;


Удачи.


 
Aleks1   (2002-09-03 03:18) [4]

Добавление к Almaz © (03.09.02 02:44)
Еще стоило бы проверять перед Append существование файла, и если нет, то создавать его.


 
RV   (2002-09-03 08:09) [5]

Еще стоило бы проверять перед Append существование файла, и если нет, то создавать его.
угу, лучше сразу привыкать к этому
var
F: TextFile;
begin
AssignFile(F, Application.GetNamePath + "1.log");
{$I-}
Append(F);
if IOresult<>0 then begin
ReWrite(f);
if IOresult<>0 then Матюки, что файл не создается.
end;
Write(F, Memo1.Lines.GetText);
CloseFile(F);
{$I+}
end;



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

Форум: "Основная";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.007 c
1-35646
Юра
2002-08-31 00:51
2002.09.12
Проблемы в работе


1-35817
Cr@sh
2002-08-31 14:29
2002.09.12
Вопрос по использованию dll


3-35631
michael_b
2002-08-23 10:14
2002.09.12
Связывание таблиц


1-35792
Pretor
2002-08-31 16:15
2002.09.12
Декомпиляторы BPL-файлов


1-35753
Mr. Faga
2002-08-30 16:53
2002.09.12
Delphi 7





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский