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

[min@y™]

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

Да мне пох, как ты делаешь!
Я ж исходные данные просил. ДАННЫЕ! Не код твой, а ДАННЫЕ!!!
Ты ж просил прогрессбар прицепить.

[Dvoishnik]

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

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

изначально не парвильно прочитал задание break; уберите, и все у вас будет в моем варианте
а ну и J обнуляйте

[Iron Monk]

procedure TForm1.Button2Click(Sender: TObject);
var
 i, n: Integer;
begin
   n:= Memo1.Lines.Count - 1;
   ProgressBar1.Max:= n;
   for i:= 0 to n do
   begin
   Application.ProcessMessages;
   Memo1.Lines[i]:= Copy(Memo1.Lines[i], 1, Pos(',', Memo1.Lines[i]) - 1);
   ProgressBar1.Position:= i;
   end;
   ProgressBar1.Position:= 0;
   ShowMessage('Обработка завершена.');
end;

[min@y™]

Блин, чот медленно работает... Тестировал на файле 10+ Мбайт.

Ускорьте алгоритм, кому интересно. Прогу с исходниками прицепляю.

[Аватар]

То же самое на 100000 строк в StringList с загрузкой/выгрузкой в мемо делается за пару десятых секунды. Прогу не смотрел, 7z не использую и ставить нет ни какого желания

[Dvoishnik]

у меня вышло 5 секунд на выгрузку из файла в мемо и 40 на обработку и выгрузку из лист бокс.
файл >15Мб

var
  j,i: Integer;
  var StrList: TStringList;
begin
  Memo1.Lines.LoadFromFile('file.txt');
  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));
    end
      else StrList.Add(Memo1.Lines[i]);
    j:=0;
  end;
  Memo1.Lines:= StrList;

end;

как это быстрее сделать?

[Аватар]

for i:=0 to Memo1.Lines.Count

Это ни к чему. StringList.Text:=Memo1.Lines.Text и цикл по строкам StringList.

[mitiay]

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

у меня вышло 5 секунд на выгрузку из файла в мемо и 40 на обработку и выгрузку из лист бокс.
файл >15Мб

var
  j,i: Integer;
  var StrList: TStringList;
begin
  Memo1.Lines.LoadFromFile('file.txt');
  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));
    end
      else StrList.Add(Memo1.Lines[i]);
    j:=0;
  end;
  Memo1.Lines:= StrList;

end;

как это быстрее сделать?

Это удаляет после запятой,А как сдеать чтобы До запятой?

[Serge_Bliznykov]

Это удаляет после запятой,А как сдеать чтобы До запятой?

я бы такой код попробовал:

var 
  s : string;
  j,i: Integer;
 StrList: TStringList;
begin
  StrList:=TStringList.Create;
  StrList.LoadFromFile('file.txt')
  for i:=0 to StrList.Count - 1 do
  begin
    s :=  StrList.Strings[i];   
    j := Pos(',',s);
    if j>0 then 
      StrList.Strings[i] := Copy(s,j+1, Length(s)-j);
  end;
  Memo1.Lines:= StrList;
  StrList.Free;
end

[mitiay]

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

я бы такой код попробовал:

var 
  s : string;
  j,i: Integer;
 StrList: TStringList;
begin
  StrList:=TStringList.Create;
  StrList.LoadFromFile('file.txt')
  for i:=0 to StrList.Count - 1 do
  begin
    s :=  StrList.Strings[i];   
    j := Pos(',',s);
    if j>0 then 
      StrList.Strings[i] := Copy(s,j+1, Length(s)-j);
  end;
  Memo1.Lines:= StrList;
  StrList.Free;
end

ругается на Lines.Count, а на моем примере можете продемонстрировать?)