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

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

Форум программистов > Delphi: Общие вопросы > txt files

Автор: JohnnY 15.3.2007, 01:15

Подскажите код проги...

У меня txt файл, в нём 100 строк, каждая строка, скажем по 20 символов, но с разными символами...

Как можно сделать это...

Открываешь прогу, открываешь txt file, загрузка его в memo, жмешь кнопку и во втором memo те же самые строки только, в каждой строке должно быть следующее...

Мне надо в каждой строке добавить слова, до и после символов в txt файле...

Например мне из этих строк:

1234567890
123456
123
0986544333

(таких строк к примеру в файле 100)

Надо получить следующее:

Values.add('1234567890');
Values.add('123456');
Values.add('123');
Values.add('0986544333');

Подскажите как именно дописывать в каждую строку до и после символов...

Автор: Albinos_x 15.3.2007, 01:22

прогоняешь в цикле все строки мемо1, в теле цикла пишеш приблизительно это:

Код


Memo2.Lines.Append('Values.add('''+Memo1.Lines[i]+''');');

только не забудь перед цикло второй мемо очищать...

Автор: aktuba 15.3.2007, 01:24

1. Открытие txt-файла в Memo

Код


Memo1.Lines.LoadFromFile(filename);

2. Добавление текста:

Код


Memo2.Clear;
for Idx := 0 to Memo1.Lines.Count - 1 do
  Memo2.Lines.Add('Values.Add(''' + Memo1.Lines[Idx] + ''');');

P.S.: пока писал - ответили smile