| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Stepper ©   (2007-12-20 21:06:00) 

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

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

---

{RASkov}   (2007-12-21 00:53:00) [1]

> [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;

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

---

Stepper   (2007-12-21 00:32:00) [2]

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


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

---

{RASkov}   (2007-12-21 00:22:00) [3]

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

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

---

Stepper   (2007-12-20 23:58:00) [4]

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


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

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

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

---

{RASkov}   (2007-12-20 22:45:00) [5]

> [6] Step ler  :) (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)

:) т.е. :(

---

Palladin   (2007-12-20 22:24:00) [6]

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

---

Stepper   (2007-12-20 22:15:00) [7]

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


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

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

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

Воть!

---

homm   (2007-12-20 22:06:00) [8]

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

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

---

{RASkov}   (2007-12-20 22:03:00) [9]

> [3] Stepper   (20.12.07 22:01)

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

---

Stepper   (2007-12-20 22:01:00) [10]

var
s: string;

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

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

---

homm   (2007-12-20 21:56:00) [11]

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

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

---

Palladin   (2007-12-20 21:54:00) [12]

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

---

Наверх