Помогите разобраться со строками

[Alexeyss]

Здравствуйте.

Столкнулся с проблемой.

Открываю файл txt в memo, далее мне необходимо найти определенный символ, например '|' и поставить ровно под ним такой же символ, Lines +1 и так до конца текста.

Помогите пожалуйста разобраться.

[Utkin]

Проблема большинства таких вопросов в их полной вате. Скажите четко что Вам нужно? Хорошо, у memo есть memo.Lines.Text - считайте что memo это не строки, а одна большая строка. Вот и ищите в ней свой символ и вставляйте в нее все что Вам захочется.
Но у этого подход есть маленький минус. При вставке в текст строка полностью копируется. И если в memo будет много текста скорость работы может упасть значительно.
Кроме того, такой подход не допускает использования некоторых знаков, в общем я Вас предупредил.

[Alexeyss]

Сообщение от Utkin

Проблема большинства таких вопросов в их полной вате. Скажите четко что Вам нужно?

Загружается файл

Табурет | Стол | Вата | Фамилия | Имя | ..................................
1 2 3 Иванов Николай
2 3 4 Петров Евгений
................................... ................................... ...........
................................... ................................... ...........
................................... ................................... ...........

Вот и нужно этот символ '|' продолжить вниз на той же позиции.
Так же отмечу, что шапка документа может меняться, в том плане, что перед
Табурет | Стол | Вата | Фамилия | Имя |
Может идти текст, который зависит от файла, именно поэтому мне не подходит способ:

Var
 f1,f2:Textfile;
 i,ij,j, len:integer;
begin
    AdvMemo1.Clear;
    if OpenDialog1.Execute then begin
  AssignFile(f1,opendialog1.FileName);

   reset(f1);   j:=1;
   for I := 1 to 30 do
     m[i]:=0 ;

   for i := 1 to 14 do
   begin
    Readln(f1,s); len:=Length(s);  s1:=s;
     for Ij := 1 to len  do
        if  s1[ij] = '|' then
            s1[ij]:=';';
            advMemo1.Lines.Add(s1);
   end;
      for I := 1 to len +1 do
        if  s[i] = '|' then
          begin

            m[j]:=i;
             j:=j+1;
         end;
while not  Eof(f1) do
  begin
     Readln(f1,s);
       len:=Length(s);
       for I := 1 to len  do
          for j := 1 to 30 do
             if i = m[j] then
                  s[i]:=';';
                 s:=s+';';
       advMemo1.Lines.Add(s);

[Utkin]

Тебе преподу показывать или для собственных нужд? Если для собственных, у меня имеется библиотека, которая рассматривает строки как массив последовательностей символов, ограниченных разделительным символом. В нашем случае первую строку можно как я понимаю откидывать, здесь у нас просто образец символа, который нужно впихивать в остальные. Тогда перед нами массивы последовательностей символов, где в качестве разделителя выступает пробел. Тогда Вам нужно будет осуществлять всего лишь вставку элементов в такой массив.

[Alexeyss]

Сообщение от Utkin

Тебе преподу показывать или для собственных нужд?

От преподов я давно вырос
Для работы программа, а библиотеки буду оч. признателен.

[Utkin]

http://rus.teamforum.ru/download/file.php?id=7

Там находится моя разработка, в ней можно использовать Masiv и Stroki - набор функций для представления строки как массива, множества, арифметика длинных чисел. Open Source, можете использовать как заблагорассудится, но не имеете права ограничивать распространение данного кода.
Нумерация массивов начинается от единицы. В строке всегда есть хоть один элемент, даже если она пустая.