Как при сохранении данных из RichEdit - добавить к ним строку..

← →
Stepper (2007-12-20 21:06) [0]

такого формата:

Создано: Data (Time)

← →
Palladin © (2007-12-20 21:54) [1]

и что, по аналогии по предыдущей ветки не дошло чтоли как Date или Time в перевести?

← →
homm © (2007-12-20 21:56) [2]

> Как при сохранении данных из RichEdit - добавить к ним строку..

Сначала добавить, потом сохранить.

← →
Stepper (2007-12-20 22:01) [3]

var
s: string;

begin
s := DateToStr(Date) + " " + TimeToStr(Time);
...
end;

Вопрос в том как добавить в конец RichEdit"a и при добавлении новой строки , дату смещать на одну стоку ниже и переписать на текущюю?

← →
{RASkov} © (2007-12-20 22:03) [4]

> [3] Stepper (20.12.07 22:01)

По русски задай вопрос, что же именно ты хочешь...

← →
homm © (2007-12-20 22:06) [5]

> [3] Stepper (20.12.07 22:01)
> Вопрос в том как добавить в конец RichEdit"a и при добавлении
> новой строки , дату смещать на одну стоку ниже и переписать
> на текущюю?

Ты у нас спрашиваешь в чем вопрос?

← →
Stepper (2007-12-20 22:15) [6]

> {RASkov} © (20.12.07 22:03) [4]

При нажатии на кнопу Добавить...
Пищу в RichEdit данные:
RxRichEdit1.Lines.Add(IntToStr(RxRichEdit1.Lines.Count + 1) + ". String " + str);

И так соответственно при повторном клике по кнопе Добавить... строка добавляется :)

Как при добавлении строки, добавить строкой ниже Дату и время? И при N-нном нажатии на кнопу Добавить..., строка с Датой и временем смещалась ниже и соответственно Переписывалась (Обновление Даты и времени на текущее)

Воть!

← →
Palladin © (2007-12-20 22:24) [7]

Дайте нам погибнуть, мы последние самураи...
куда все остальные делись то...

← →
{RASkov} © (2007-12-20 22:45) [8]

> [6] Stepler :) (20.12.07 22:15)

procedure TForm1.Button1Click(Sender: TObject); begin RxRichEdit1.Lines.Insert(RxRichEdit1.Lines.Count-1, IntToStr(RxRichEdit1.Lines.Count)+". String" + Str); RxRichEdit1.Lines[RxRichEdit1.Lines.Count-1]:=DateTimeToStr(Now); end;
Данный код "не работает", если до первого его выполнения в ричэдите нет строк.... Подумай как исправить)

Извини за ник, но.... мне он именно так и "читается" :)

> [7] Palladin © (20.12.07 22:24)

:) т.е. :(

← →
Stepper (2007-12-20 23:58) [9]

> {RASkov} © (20.12.07 22:45) [8]

> Данный код "не работает", если до первого его выполнения в ричэдите нет строк.... Подумай как исправить)

Гы) Исправил по хытрому :) Lines -> String List editor -> добавил пробел )))

Все работает ;) Спс!

> [9] Stepper (20.12.07 23:58)
> Гы) Исправил по хытрому :) Lines -> String List editor -
> > добавил пробел )))

хЫтро, но не умно :(
:о)

← →
Stepper (2007-12-21 00:32) [11]

> {RASkov} © (21.12.07 00:22) [10]

А как еще мне новичку еше думать? :) Не чего более не пришло в голову!
Направьте заплутавшего!

> [11] Stepper (21.12.07 00:32)
> Не чего более не пришло в голову!

Что-то "в голову" тебе вообще ничего не приходит :(

> Направьте заплутавшего!

В твоем случае, я бы сделал нечто так:

procedure AddInLog(Lst: TStrings; const Str: String); begin if not Assigned(Lst) then Exit; if Lst.Count=0 then begin Lst.Add("1. String" + Str); Lst.Add("Изменено: "+DateTimeToStr(Now)); end else begin Lst.Insert(Lst.Count-1, IntToStr(Lst.Count)+". String" + Str); Lst[Lst.Count-1]:="Изменено: "+DateTimeToStr(Now); end; end; procedure TForm1.Button1Click(Sender: TObject); begin AddInLog(RxRichEdit1.Lines, "Я когда нибудь буду Великим Программистом"); end;

Не идеально, но.... мне тоже что-то в голову ничего сегодня нормального не приходит :(
:о)

Как при сохранении данных из RichEdit - добавить к ним строку.. Найти похожие ветки