[Dima2007]

Скажите вот есть форма Form1 на ней button1 и Memo1.
Как сделать так чтобы при нажатии Button1 в Memo1.
Появилось содержимое txt файла.(С:\text.txt)

[Winny]

Код:

Memo1.Lines.LoadFromFile('C:\text.txt')

[Dima2007]

Спасибо за помощь получилось.Есть еще вопросы:
1.Можно разместить на форме Label1 написать слово
к примеру (Внимание) и сделать так чтобы оно постоянно
"Мигало" т.е меняло цвет к примеру с красного на черный
с интервалом в 1-3 секунды примерно.
2.Что можно кинуть на форму Memo или Edit чтоб можно было
ввести текст и при клике кнопки записать этот текст в формат
txt (блокнот).(Пример Введите ник,кнопка запомнить)
3.Как можно гдето на форме вывести число сколько раз эта форма
запускалась.
4.Как сделать чтоб при открытии формы стир ался txt фаил (c:\text.txt)
а если его нет по заданному пути (c:\text.txt) то форма не как на это
не реагировала (не выдала ни какой ошибки)

[moo2k]

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.

[Winny]

1)Кидаешь на форму два таймера, один называешь Timer1, а другой Timer2, и кидаешь один Label. У Timer1 ставишь Interval на 500, а у Timer2 ставишь Interval на 1000. И вот код для Timer1:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style+[fsBold];
Timer1.Enabled:=false;
Timer2.Enabled:=true;
end;

Вот код для Timer2:

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style-[fsBold];
Timer1.Enabled:=true;
Timer2.Enabled:=false;
end;

end.

2)Ты имеешь ввиду сохранение текста? Если да то кидай на форму SaveDialog и Memo. Вот код для сохранения текста Memo:

Код:

if not SaveDialog1.Execute then
Exit
else
Memo1.Lines.SaveToFile(SaveDialog.FileName);

А вот код для сохранения текста Edit'а, кинь на форму SaveDialog и Edit:

Код:

var
S:TStringList;
begin
S:=TStringList.Create;
S.Text:=Edit1.Text;
if not SaveDialog1.Execute then
Exit
else
S.SaveToFile(SaveDialog1.FileName);
S.Free

3)Создай в корневой папке программы файл RunCount.txt. В нём напиши цифру "0" в первой строке. И кинь на форму один Label. На событие формы OnCreate пиши:

Код:

var
RunCount:Integer;
RunCountFile:TStringList;
begin
RunCountFile:=TStringList.Create;
try
if not FileExists('RunCount.txt') then begin
ShowMessage('В корневой папке программы не найден файл RunCount.txt, пожалуйста создайте его!')
RunCountFile.Free;
else
RunCountFile.LoadFromFile('RunCount.txt');
RunCount:=StrToInt(RunCountFile.Strings[0]);
RunCount:=RunCount+1;
Label1.Caption:=IntToStr(RunCount);
RunCountFile.Strings[0]:=IntToStr(RunCount);
RunCountFile.SaveToFile('RunCount.txt');
RunCountFile.Free;
except
end;

4)На событие OnCreate формы пиши:

Код:

var
F:TStringList;
begin
F:=TStringList.Create;
try
F.LoadFromFile('C:\text.txt');
F.Clear;
F.SaveToFile('C:\text.txt')
F.Free;
except
end;

Надеюсь ответ полный? Надеюсь на твой отзыв.

[The Shadow]

2. Memo1.Lines.SaveToFile('Путь к файлу');
3. Или использовать ini файлы.
4. Вместо try ... except можно сделать и так:
if FileExists('Путь к файлу') then DeleteFile('Путь к файлу');

[dr. F.I.N.]

Сообщение от Winny

1)Кидаешь на форму два таймера, один называешь Timer1, а другой Timer2, и кидаешь один Label. У Timer1 ставишь Interval на 500, а у Timer2 ставишь Interval на 1000. И вот код для Timer1:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style+[fsBold];
Timer1.Enabled:=false;
Timer2.Enabled:=true;
end;

Вот код для Timer2:

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Label1.Font.Style:=Label1.Font.Style-[fsBold];
Timer1.Enabled:=true;
Timer2.Enabled:=false;
end;

end.

Тут ты меня просто убил! Нафига 2 таймера? А завести глобальную переменную IsBlind: Boolean; никак?.

Код:

var
  IsBlind: Boolean = false;
...
implementation
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Label1.Font do
  case IsBlind of
  true: 
    begin
      Style := Style+[fsBold];
      Color := clRed;
    end;
  false:
    begin
      Style := Style-[fsBold];
      Color := clBlack;
    end;
  end;
  IsBlind := not IsBlind;
end;
...
end.