Текущий архив: 2006.10.01;
Скачать: CL | DM;
Вниз
Цифры в 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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.044 c
