*.ini, TMemo, Перенос строки

[skalt12]

Всем привет... выручайте, пожалуйста.. Мозг уже кипит. сообразить не могу..

дело такое, из файла *.ini в TMemo загружается текст, мне нужно каждый раз после того, как в тексте встречается символ ";" переносить текст на новую строку..

я понимаю, что нужно реализовать через поиск слова, pos.. но не могу додуматься как совместить

[Пепел Феникса]

банально циклом по строке пройдитесь, и меняйте на #13

[Stilet]

Memo.Lines.Text:=StringReplace(<строка из ИНИ>,';',#13#10,[rfreplaceall]);

[skalt12]

ух, спасибо, мужики.. прям гора с плеч!

[skalt12]

ребят, еще такой вопрос, вот у меня в файле *.ini 17 секций с численным значением.. мне нужно при нажатии, скажем, на Button1 подгружать только содержимое нечетных секций..
В теории все выглядет просто: считал секции, если удовлетворяет условию, то показал содержимое.. А вот, на практике не выходит...

поможете?

[kangreon]

for i := 1 to 17 do
if i mod 2 <>0 then
begin

end;

А название секций численное?

[Stilet]

А вот, на практике не выходит

Практику в студию

[skalt12]

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

for i := 1 to 17 do
if i mod 2 <>0 then
begin

end;

А название секций численное?

да, численное

[skalt12]

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

Практику в студию

я делал так:

..
var i : integer;
begin
...
  for i := 0 to 17 do
    if i mod 2 <> 0 then
      begin
        Memo1.Clear;
        Memo1.Lines.Add(ini.ReadString(num, l,''));
        Memo1.Text := StringReplace(Memo1.Lines.Text, '; ', #13#10,[rfReplaceAll]);
      end;
...

где l - заданная ранее переменная, типа integer, ибо файл у меня так выглядет:

[1]
1=
2=
..
6=
<..>
[17]
1=
..
6=

но в итоге выходит какая-то ахинея

[kangreon]

..
var i : integer;
begin
...
Memo1.Clear;
  for i := 0 to 17 do
    if i mod 2 <> 0 then
      begin        
        Memo1.Lines.Add(ini.ReadString(inttostr(i), l,''));        
      end;
  Memo1.Text := StringReplace(Memo1.Lines.Text, '; ', #13#10,[rfReplaceAll]);
...