Получить все цифры из Edit

@Pi Ey · Регистрация: 24.03.2016

Как получить все цифры из Edit ?

@Nanotentacle · 04.12.2016, 13:13

А в каком формате данные вводятся в Эдит? И в каком формате и куда их выводить?

Delphi

Var st:string; I,val:integer;
Begin
St := edit.text;
For I := 1 to length(st) do
 If trystrtoint(st[I],val) then ShowMessage(st[I]);
End;

Вот находим цифры в элите и выводим его в отдельный диалог.

@Pi Ey 3 / 3 / 6 Регистрация: 24.03.2016 Сообщений: 47
		1
	Получить все цифры из Edit 04.12.2016, 13:07. Показов 1173. Ответов 1 Метки нет (Все метки) Как получить все цифры из Edit ? 0

	04.12.2016, 13:13

Решение