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

[Аватар]

ругается на Lines.Count

А где он в процитированном коде?

[mitiay]

Сообщение от Аватар

А где он в процитированном коде?

StrList:=TStringList.Create;
for i:=0 to StrList.lines.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);

[Аватар]

Цитировался другой код, в нем нет lines.Count. А в StringList нет свойства Lines

[mitiay]

var
  s : string;
  j,i: Integer;
 StrList: TStringList;
begin
  StrList:=TStringList.Create;
  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;

Ну тогда он не работает,он просто удаляет все содержимое memo

[Serge_Bliznykov]

Вы забыли прочитать содержимое файла!

StrList.LoadFromFile('file.txt');

или откуда в StrList данные должны взяться? Из memo1 ?
тогда так:

var
  s : string;
  j,i: Integer;
 StrList: TStringList;
begin
  StrList:=TStringList.Create;
  StrList.Text := Memo1.Lines.Text;
  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;

[Dvoishnik]

а нельзя как нибудь ускорить передачу текста из TStringList в Memo??

[min@y™]

Я тут, это, оптимайзинг произвёл не большой.
Децл скорость увеличилася... Порядка на 2...



Shift+F11

[Iron Monk]

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

а нельзя как нибудь ускорить передачу текста из TStringList в Memo??

Memo1.Lines.Assign(StringList);

[min@y™]

а нельзя как нибудь ускорить передачу текста из TStringList в Memo??

можно. что я, собственно, и сделал в новой версии. исходник посмотри.

[Dvoishnik]

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

Memo1.Lines.Assign(StringList);

вышло не быстрее чем

 
Memo1.Lines:= StrList;

хотя нет, вру на 14 секунд быстрее, ваш вариант.