[Ankor]

Всем привет.

Подскажите пожалуйста, как скопировать из Мемо в Stringgrid
следующие строки:
1;2;3;4;5;
5;8;7;4;2;
Надо, чтобы цифры отображались в Stringgrid в соответствующих ячейках
в виде таблицы, без символа ';' .

[stanilar]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var sl : TStringList; MIndx : integer;
begin
  sl := TStringList.Create;
  for MIndx := 0 to Memo1.Lines.Count - 1 do begin
    sl.Text := StringReplace(Memo1.Lines.Strings[MIndx], ';', sLineBreak, [rfReplaceAll]);
    StringGrid1.RowCount := StringGrid1.RowCount + 1;
    if StringGrid1.ColCount < sl.Count then StringGrid1.ColCount := sl.Count;
    StringGrid1.Rows[StringGrid1.RowCount - 1] := sl;
  end;
  sl.free;  
end;

Админ: Пользуемся тегами для оформления кода!

[Ankor]

Спасибо, но что-то не работает...
В StringGrid ничего не отображается

Уважаемые профессионалы, приведите рабочий пример пожалуйста.

[angvelem]

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

...Надо, чтобы цифры отображались в Stringgrid в соответствующих ячейках...

Не совсем ясно. Именно так как написано, или цифра означает номер колонки или строки?

[Ankor]

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

Не совсем ясно. Именно так как написано, или цифра означает номер колонки или строки?

Цифры ничего не означают(любые числа), они просто должны скопироваться из мемо (без символа ';'), в соответствующие ячейки Stringgrid (таблица из 2-х строк и 5-и колонок).

Кол-во в мемо строк и чисел конечно больше будет, это я маленький пример привел, просто покажите пожалуйста, как это скопировать в
Stringgrid .

[Ankor]

Вопрос решился, проще некуда:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  SList: TStringList;
  i: Integer;
begin
  SList := TStringList.Create;
  SList.Delimiter := ';';
  try
    for i := 0 to Memo1.Lines.Count - 1 do
    begin
      SList.DelimitedText := Memo1.Lines.Strings[i];
      StringGrid1.Rows[i].Delimiter := SList.Delimiter;
      StringGrid1.Rows[i].DelimitedText := SList.DelimitedText;
    end;
    
  finally
    SList.Free;
  end;
end;

Всем спасибо за оперативную помощь, +++ !