| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Цифры в StringGrid [D7]

vase21 ©   (2006-08-16 18:12:00) 

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

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

---

vase21   (2006-08-16 18:25:00) [1]

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

---

Zeqfreed   (2006-08-16 18:22:00) [2]

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;

---

Наверх