Форум: "Основная";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Вниз

Цифры в StringGrid   Найти похожие ветки 

← →
vase21   (2006-08-16 18:12) [0]

Пожалуйста подскажите:

как перевести число из Edit в StringGrid так чтобы оно разбилось по цифрам по порядку в столбцах StringGrida, т.е есть число 5674893 а его надо разбить на цифры 5,6,7,4 и т.д

---

← →
Zeqfreed ©   (2006-08-16 18:22) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
 i : Integer;
 s : String;
begin
 s := Edit1.Text;
 for i := 1 to length(s) do begin
  if (i > StringGrid1.ColCount) then Exit;

  if (s[i] in ["0".."9"]) then
    StringGrid1.Cells[i - 1, 0] := s[i];
 end;
end;

---

← →
vase21   (2006-08-16 18:25) [2]

Огромное спасибо Zeqfreed - оказывается все так просто

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.013 c