Tstringgrid, расчет подстрок в ячейке

[Алексей_2012]

Здравствуйте, в интернете нагуглил программу, которая по нажатию Enter создает новую подстроку в ячейке, где фокус, модернизировал ее, чтоб сохраняла-выводила данные (события formclose,formshow, если кому надо). Теперь возникла такая задача: так как строки ячейки записываются через объект мемо, то нужно проверить, убран ли фокус с ячейки, если да, то проверить: если в ячейке одни цифры, то суммировать их. и перезаписать вместо слагаемых-сумму.

А, чуть не забыл, вот мои наработки по этому поводу:

procedure TForm1.Memo1Exit(Sender: TObject);
var
  Memo: TMemo;
  jj:Integer;
  summ:real;
  chislo:Boolean;
begin
  chislo:=false;
  Memo := Sender as TMemo;
  //Текст из Мемо записываем в ячейку.
  for  jj:=0 to Memo.Lines.Count-1 do
  begin
  memo.Lines[jj]:=trim(memo.lines[jj]);
    if  not (memo.Lines[jj] in ['0'..'9']) then   chislo:=True;
  end;
  if not chislo then
  begin
  summ:=0;
   for jj:=0 to memo1.Lines.Count-1 do
     summ:=summ+strtofloat(Memo.Lines[jj]);
     Memo.Text:=FormatFloat('0.00'.summ);
  end;
  StringGrid1.Cells[FCol, FRow] := Memo.Text;
  //Прячем Мемо.
  Memo.Visible := False;
end;

Выплывает ошибка: [Error] Unit1.pas(176): Incompatible types: 'String' and 'Char'

в 176 строке код: if not (memo.Lines[jj] in ['0'..'9']) then chislo:=True;

[Аватар]

Сообщение и говорит что memo.Lines[jj] строкового типа, а в данном контексте там должен быть тип char. Так уж устроен паскаль

[Алексей_2012]

Извиняюсь, исправил, заработало, но есть ли способ проще? (Добавление двух лишних переменных для какой-то проверки) И кстати, извиняюсь за глупый вопрос, но сколько символов вмещает в себя переменная s:string? 256? Потому что где-то слышал что какая-то переменая, или что-то вроде может хранить в себе до 2-х гб текста, или я что-то не так понял?

procedure TForm1.Memo1Exit(Sender: TObject);
var
  Memo: TMemo;
  jj, ii: Integer;
  summ: real;
  s: string;
  chislo: Boolean;
begin
  chislo := false;
  Memo := Sender as TMemo;
  //Текст из Мемо записываем в ячейку.
  for jj := 0 to Memo.Lines.Count - 1 do
  begin
    s := trim(memo.lines[jj]);
    for ii := 1 to Length(S) do
      if not (s[ii] in ['0'..'9', ',', '.']) then
        chislo := True
      else
        if s[ii] = '.' then s[ii] := ',';
    memo.lines[jj] := s;
  end;
  if not chislo then
  begin
    summ := 0;
    for jj := 0 to memo.Lines.Count - 1 do
    if memo.Lines[jj]<>'' then
      summ := summ + strtofloat(Memo.Lines[jj]);
    Memo.Text := FormatFloat('0.00', summ);
  end;
  StringGrid1.Cells[FCol, FRow] := Memo.Text;
  //Прячем Мемо.
  Memo.Visible := False;
end;

[Аватар]

Проще это как - одной командой? Можно - оформите код функцией, а в OnExit одной командой обратитесь к ней.

[Алексей_2012]

Проще только функцией? Ладно, оставлю так, сейчас сделаю проверку: если одни числа в подстроках, то начать новый цикл по проверке точек и замены на запятую, дабы уменьшить вероятность недоделок)

Все, готово, надо было быть внимательнее, прежде чем создавать тему, ну да ладно, может кому и пригодиться.