[cyber922]

Вообщем я сделал вот такую программку подобие "записной книжки", но есть в ней проблемка, когда я нажимаю кнопку open она должна открывать тхт файл, а она их не видит, хотя на самом деле они есть, тоже самое и с save кнопкой, может кто знает в чем проблема?
В окне File Editor прописывал, расширение которые она должна видеть...

[Ildar-tsr]

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

Вообщем я сделал вот такую программку подобие "записной книжки", но есть в ней проблемка, когда я нажимаю кнопку open она должна открывать тхт файл, а она их не видит, хотя на самом деле они есть, тоже самое и с save кнопкой, может кто знает в чем проблема?
В окне File Editor прописывал, расширение которые она должна видеть...

В фильтрах OpenDialog'а и SaveDialog'а убери точку после txt

[cyber922]

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

Вообщем я сделал вот такую программку подобие "записной книжки", но есть в ней проблемка, когда я нажимаю кнопку open она должна открывать тхт файл, а она их не видит, хотя на самом деле они есть, тоже самое и с save кнопкой, может кто знает в чем проблема?
В окне File Editor прописывал, расширение которые она должна видеть...

ещё я добавил функцию в компонент memo, чтобы выводилось время, а при нажатии любой кнопки программа вылетает( в чем трабла?

[Ildar-tsr]

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

ещё я добавил функцию в компонент memo, чтобы выводилось время, а при нажатии любой кнопки программа вылетает( в чем трабла?

"Трабла" у тебя в том, что обрабатывается событие "При изменении" (OnChange), и когда ты вставляешь дату, то что происходит? Верно, изменение, и следовательно опять вызывается та же функция. Такой бесконечный цикл получается.
А как должно быть по твоей задумке? Словами просто опиши смысл.

[cyber922]

Сообщение от Ildar-tsr

"Трабла" у тебя в том, что обрабатывается событие "При изменении" (OnChange), и когда ты вставляешь дату, то что происходит? Верно, изменение, и следовательно опять вызывается та же функция. Такой бесконечный цикл получается.
А как должно быть по твоей задумке? Словами просто опиши смысл.

в поле memo должно выводиться дата и время))Вот что я чего хочу добиться от неё))
Автоматически)

[Ildar-tsr]

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

в поле memo должно выводиться дата и время))Вот что я чего хочу добиться от неё))

После чего? При запуске программы, или при нажатии какой-то конкретной клавиши. Подробнее, я твои мысли читать не умею.

[cyber922]

Сообщение от Ildar-tsr

После чего? При запуске программы, или при нажатии какой-то конкретной клавиши. Подробнее, я твои мысли читать не умею.

и при нажатии кнопки "-" как указанно в коде, тоже вылетает(

[Ildar-tsr]

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

Ну при запуске программы)



var
s : string;
begin
s := DateToStr( Date ) + ' - ' + TimeToStr(Time);
Memo1.Lines.Insert(0,s);
Memo1.SetFocus;
Memo1.SelStart := Length(s);
Memo1.SelLength := 0;
end;
мне даётся этот код, и с помощью него я должен в memo вывести дату и время

Целиком вставь его в FormShow, а onChange убери:

Код:

procedure TForm1.FormShow(Sender: TObject);
var s : string;
begin
s := DateToStr( Date ) + ' - ' + TimeToStr(Time);
Memo1.Lines.Add(s);
Memo1.SetFocus;
Memo1.SelStart := Length(s);
Memo1.SelLength := 0;
end;

[cyber922]

Сообщение от Ildar-tsr

Целиком вставь его в FormShow, а onChange убери:

Код:

procedure TForm1.FormShow(Sender: TObject);
var s : string;
begin
s := DateToStr( Date ) + ' - ' + TimeToStr(Time);
Memo1.Lines.Add(s);
Memo1.SetFocus;
Memo1.SelStart := Length(s);
Memo1.SelLength := 0;
end;

Спасибо, сча попробуем)