SHPORA.net :: PDA

[ Back ]

procedure TForm1.Button16Click(Sender: TObject);

begin

s:=Edit1.Text; Строковой переменной S присваиваем значение свойства Текст компонента Эдит1

if pos(',',s)=0 then если позиция запятой в строке S=0 тогда

Edit1.Text:=Edit1.Text+','; добавляем к значению текст ‘,’ зяпятую

end;