Скачать: CL | DM;

RichEdit-ы   Найти похожие ветки 

← →
floxi ©   (2005-11-23 19:29) [0]

Добрый вечер!

Есть два RichEditа. В первом выдаётся информация из файла с помощью диалога OpenDialog1.FileName. Надо, чтобы инфа из RichEdit1 передалась в RichEdit2, но плюс ещё какая-нибудь информация, т.е.:

type
 {Запись файла}
TFiles=record
 Otdel: string [10]; {Код отделения}
 Laba: string [10]; {Код лаборатории}
 Nomer: string [10]; {Номер сотрудника}
 Data: string [10]; {Дата}
 Nachislenie: string [10]; {Код начисления}
 Summa: string [10]; {Сумма начисления}
end;

var
 st: string [30];
 rec: TFiles; {запись, прочитанная из файла}
 f: file of TFiles; {файл записей}
begin
...
// открытие файла
...
st:=rec.Otdel + " " + rec.Laba + " " + rec.Nomer + " " + rec.Data +
" " + rec.Nachislenie + " " + rec.Summa;
RichEdit1.Lines.Add(st);

Теперь нужно записать в RichEdit2 выборочные данные из RichEdit1: Otdel, Nomer, Laba  и плюс номер по порядку, например. :0)

---

← →
Virgo_Style ©   (2005-11-23 20:43) [1]

А где вопрос?

P.S. imho, при более-менее большом количестве записей все это просится в БД.

---

← →
floxi ©   (2005-11-23 21:09) [2]

Как взять отдельный элемент из строчки?
Т.е. в RichEdit1 видны записи в столбиках (в 3 строчки например):
Otdel    Nomer  Laba    Data
----------------------------------
23        67       34      12.05.2005
34        31       78      03.12.2003
45        12       05      16.07.2004
----------------------------------
Нужно взять и переписать в RichEdit2 только 1-й и 3-й столбик, а не всю строчку (только rec.Otdel, rec.Nomer, rec.Laba).

P.s. Может это и нельзя воспроизвести... много хочу от Delphi... задали задание, пользоваться БД не написано, просто "Работа с файлами".

---

← →
Virgo_Style ©   (2005-11-23 21:26) [3]

Если работа с файлами, то стоит ли возиться с RichEdit"ами, или проще вывести во второй точно так же, как в первый - но без ненужного?
Или это в задании указано, что источник - первый RichEdit?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c