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

[MSD]

Сообщение от Пепел Феникса

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

НУ например.... есть строки в мемо...
13.5
45.8
34

4.99
55


78
9
и так сто строк или больше... складывать каждую с каждой с ума сойдешь.... надо получить сумму строк...) ну вроде объяснил..)

[Sazary]

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

надо получить сумму строк...)

Так вам нужна сумма чисел, или сумма строк? Это, вообще-то, разные вещи.

Если первое, то используйте StrToInt.

[crystalbit]

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

Если первое, то используйте StrToInt.

скорее StrToFloat

MSD, циклом for от 0 до memo1.lines.count-1 для StrToFloat(memo1.lines.strings[i])

[Sazary]

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

скорее StrToFloat

Ну да, не заметил.

Только сомневаюсь, что ТС устроит такое неподробное описание.

[MSD]

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

скорее StrToFloat

MSD, циклом for от 0 до memo1.lines.count-1 для StrToFloat(memo1.lines.strings[i])

Это понятно... а как с пустыми строками быть?

[MSD]

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

Так вам нужна сумма чисел, или сумма строк? Это, вообще-то, разные вещи.

Если первое, то используйте StrToInt.

Нужна сумма чисел...)

[MSD]

Подскажите пожалуйста... написал программу для удаления пустых строк в МЕМО:
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
memo1.Lines.LoadFromFile('C:\2xxx.t xt');
for i:=0 to Memo1.Lines.Count - 1 do
begin
while length(Memo1.Lines[i])=0 do
begin
memo1.Lines.Delete(i);
end;
end;
end;
непонятно почему она копирует последнюю строку много раз и программа виснет... В чем Причина? Спасибо.

[Serge_Bliznykov]

попробуйте так:

i := Memo1.Lines.Count - 1;
while i >= 0 do begin
  if length(Memo1.Lines[i])=0 then memo1.Lines.Delete(i);
  Dec(i);
end;

[crystalbit]

или так

for i:=Memo1.Lines.Count-1 downto 0 do
  if Memo1.Lines.Strings[i]='' then
    Memo1.Lines.Delete(i);

MSD, соль в том, что когда удаляешь пустую строку, их количество меняется, а ты идешь до последней на момент начала, по идее overflow должен возникать