Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Окно Memo

Автор: Vladimir_K 16.4.2007, 17:15

Подскажите, пожалуйста, как программно в окне Memo отредактировать данные?
Вот содержимое окна:

"Файл № 345789,12"
AAA,00000001,10,12.000
BBB,00000002,20,12.000
CCC,00000003,30,12.000
DDD,00000004,40,12.000
EEE,00000005,50,12.000
.
.
.

1) как убрать 1-ую строку ("Файл № 345789,12") полностью?
2) остальное содержимое окна сдвинуть вверх на освободившееся место?
3) из каждой строки, где встречается, убрать (ААА, и CCC,)?

В итоге необходимо иметь такой вид:

00000001,10,12.000
BBB,00000002,20,12.000
00000003,30,12.000
DDD,00000004,40,12.000
EEE,00000005,50,12.000
.
.
.

Вообще я, что-то не разберусь, как читать данные из окна Memo, и как писать в это окно символы в определенные строки и в определенные позиции в строке...

Автор: Rennigth 16.4.2007, 17:48

Vladimir_K,
1.

Код


  Memo.Lines.Delete(0)

2. Автоматом.
3.

Код


for i := 0 to Memo1.Lines.Count -1 do
begin
  StringReplace(mmo1.Lines[i], 'AAA', '', [rfReplaceAll]);
  StringReplace(mmo1.Lines[i], 'CCC', '', [rfReplaceAll]);
end;

Автор: Vladimir_K 16.4.2007, 19:03

Заголовок теперь удаляется, спасибо, а вот элементы строк AAA, CCC... - нет.
А как бы сделать процедуру проверки более интеллектуальной: в строках удалять первые символы включая и запятую - на нее при проверке и опираться (первые символы могут содержать не только 3 буквы AAA, но и большее кол-во)?

Автор: Yanis 16.4.2007, 19:48

Цитата(Vladimir_K @ 16.4.2007, 20:03

)

А как бы сделать процедуру проверки более интеллектуальной: в строках удалять первые символы включая и запятую - на нее при проверке и опираться (первые символы могут содержать не только 3 буквы AAA, но и большее кол-во)?

Т.е. надо удалять те строки, которые начинаются на A или C?

Автор: Vladimir_K 17.4.2007, 17:56

Да, но меня уже подтолкнули в нужном направлении, так что задачу я почти решил.
Всем спасибо!