Удалить все после запятой в memo

[Dvoishnik]

Сообщение от Iron Monk

var
  i: Integer;
begin
  for i:= 0 to Memo1.Lines.Count - 1 do
  Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i]));
end;

привет, Вася!
привет, Вася!
привет, Вася!
привет, Вася!

если я правильно понял получится

привет
привет
привет
привет

а должно

привет

[mitiay]

Всем спасибо!А как ускорить процесс если большое количество строк?Программа зависает
Или какнить прогресс бар поставить можно?

[min@y™]

Или какнить прогресс бар поставить можно?

Не можно, а нужно.
Покажи код, как сделал. И исходные данные для обработки. И условия задачи.

[mitiay]

procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to Memo1.Lines.Count - 1 do
Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i])- 1);
end;

Нужно просто все удалить после запятой

[Аватар]

В StringList делай, не будет зависать

[min@y™]

В StringList делай, не будет зависать

Это как написать! При правильной кривизне рук можно систему в BSOD завалить "хэллоу-вордом".

[Dvoishnik]

удалить все после первой запятой

var
  j,i: Integer;
  var StrList: TStringList;
begin
  StrList:=TStringList.Create;
  for i:= 0 to Memo1.Lines.Count - 1 do
  begin
   j:=Pos(',', Memo1.Lines[i])-1 ;
   if j>0 then
    Begin
     StrList.Add(Copy(Memo1.Lines[i], 1,j));
     break;
    end
      else StrList.Add(Memo1.Lines[i]);
  end;
  Memo1.Lines:= StrList;
end;

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

procedure TForm1.Button2Click(Sender: TObject);

var
  i: Integer;
begin
  for i:= 0 to Memo1.Lines.Count - 1 do
  Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i])- 1);
end;

Нужно просто все удалить после запятой

я же написал как оно у вас будет работать.

[min@y™]

Аффтар, я от тебя исходные данные дождусь или забить на это всё?

[mitiay]

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

удалить все после первой запятой

var
  j,i: Integer;
  var StrList: TStringList;
begin
  StrList:=TStringList.Create;
  for i:= 0 to Memo1.Lines.Count - 1 do
  begin
   j:=Pos(',', Memo1.Lines[i])-1 ;
   if j>0 then
    begin
     StrList.Add(Copy(Memo1.Lines[i],1,j));
     break;
    end;
  end;
  Memo1.Lines:= StrList;
end;

я же написал как оно у вас будет работать.

Он удаляет все до первой запятой,а нужно удалить в каждой строчке все после запятой

[mitiay]

Сообщение от min@y™

Аффтар, я от тебя исходные данные дождусь или забить на это всё?

procedure TForm1.Button2Click(Sender: TObject);
Код:

var
i: Integer;
begin
for i:= 0 to Memo1.Lines.Count - 1 do
Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i])- 1);
end;

вот я вот так делаю