09.08.2009, 19:09
|
Прохожий
|
|
Регистрация: 08.08.2009
Сообщения: 6
Репутация: 10
|
|
Цитата:
Сообщение от pesi
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s, a, b, c : string;
str : TStringList;
i, t, p1, p2 : integer;
begin
memo2.Clear;
str := TStringList.create;
for i:=0 to memo1.Lines.Count-1 do
begin
s:=memo1.Lines.Strings[i]; // в memo1 загружены строки
p1:=pos('{', s);
p2:=pos('}', s);
if (p1<>0) and (p2<>0) then
a:=copy(s, 1, p1-1);
c:=copy(s, p2+1, MaxInt);
b:=copy(s, p1+1, p2-1-p1);
str.text := stringReplace(b, '|', #13#10, [rfReplaceAll]);
for t:=0 to str.Count-1 do
memo2.Lines.Add(inttostr(t+1) + '. '+ a + str[t] + c); //в memo2 зугружаем готовые строки
end;
str.free
end;
|
спасибо тебе большое! работает!
|