Тема: Txt в Memo
Показать сообщение отдельно
  #4  
Старый 14.10.2007, 07:03
Аватар для moo2k
moo2k moo2k вне форума
Активный
 
Регистрация: 05.12.2006
Адрес: где-то там...
Сообщения: 321
Репутация: 35
Смех

1) Это можно сделать через цикл и менять свойство Font. Цикл можно прописать в таймере и выставить Timer1.Interval:=3000.
2) Можно просто добавить кнопку BitBtn со своим рисунком (например "Дискета", как в Ворде) и текстом (например "Сохранить").
3) Можно кол-во запусков записывать в реестр и затем считывать его оттуда в Label.
4)
Цитата:
Как сделать чтоб при открытии формы стир ался txt фаил (c:\text.txt)
Код:
var
file: TextFile;
fn: String[80];
begin
if Form1.SaveDialog1.Execute then
fn := 'c:\text.txt';
AssignFile(file, fn);
{$I-}
Reset(file);
writeln(file, '');
CloseFile(file);
Или можно использовать DeleteFile().
Цитата:
а если его нет по заданному пути (c:\text.txt) то форма не как на это
не реагировала (не выдала ни какой ошибки)
используй try..except или try..finally.
__________________
Программирование - это искусство и наш смысл жизни.
Ответить с цитированием