Работа с текстом

[MSD]

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

Потому что нужно не просто расставлять, а думать, куда что нужно поставить. А вы это делать, похоже, не хотите.

procedure TForm1.Button1Click(Sender: TObject);
var i,cnt,len : integer;

begin
cnt := 0;
i := 1;
len := length(Memo1.Text);
Memo2.Clear;
while i<=len do
 begin
 while (i<=len) and (Memo1.Text[i]=' ') do inc(i);
 if Memo1.Text[i]=',' then
  begin
  inc(cnt);
  inc(i);
  end;
 while (i<=len) and (Memo1.Text[i]<>',') and (Memo1.Text[i]<>' ') do
  begin
  if cnt=3 then Memo2.Text := Memo2.Text + Memo1.Text[i];
  inc(i);
  end;

 end;

end;

Эта программа работает только с первой строчкой... а их много.... ((

[Sazary]

Эта программа работает только с первой строчкой... а их много.... ((

Эта программа работает со всеми строками. Если бы разобрались в коде, то поняли бы это.

[MSD]

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

Эта программа работает со всеми строками. Если бы разобрались в коде, то поняли бы это.

Она не работает.. непойму в чем дело.... как???

[Sazary]

Она не работает.. непойму в чем дело.... как???

Что не работает? Задача была

сделать так чтобы остался текст только между третьей и 4 запятой..?

вот в мемо2 и выводится текст между 3-й и 4-й запятыми.
Что не так?

[MSD]

есть много строк и из каждой нужно нужно выдергивать между 3-й и 4-й запятыми..... например:
1,2,3,4,5,6,4.....
1,2,3,4,5,6,4
гриша, иыван, агафон, петр, геннадий.. и так далее
нужно чтоб осталось:
4
4
Петр
вот так...))

[Sazary]

Задание нужно говорить точнее.

procedure TForm1.Button1Click(Sender: TObject);
var i,k,cnt,len : integer;

begin
cnt := 0;
i := 1;
Memo2.Clear;
for k:=0 to Memo1.Lines.Count-1 do
begin
len := length(Memo1.Lines.Strings[k]);
while i<=len do
 begin
 while (i<=len) and (Memo1.Lines.Strings[k][i]=' ') do inc(i);
 if Memo1.Lines.Strings[k][i]=',' then
  begin
  inc(cnt);
  inc(i);
  end;
 while (i<=len) and (Memo1.Lines.Strings[k][i]<>',') and (Memo1.Lines.Strings[k][i]<>' ') do
  begin
  if cnt=3 then Memo2.Text := Memo2.Text + Memo1.Lines.Strings[k][i];
  inc(i);
  end;

 end;

Memo2.Lines.Add('');
cnt := 0;
i:=1;
end;

end;

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

[MSD]

Спасибо большое...)) И еще вопросик, как сложить все строки в Memo.... допустим есть 100 строк.... среди них возможны и пустые... Спасибо огромное....

[crystalbit]

что значит сложить? Всё в одну строку? удалить пустые?

[Sazary]

как сложить все строки в Memo

Не знаю. что вы имеете в виду.

Memo1.Lines.Add('Строка');

- добавляет строку

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

MSD, Memo.Lines.Text это весь есть что есть в мемо