Скачать: CL | DM;

Текст   Найти похожие ветки 

← →
Farpik ©   (2006-04-21 21:56) [0]

Помогите, пожалуйста!

Edit1.Text:=’111111=22222’;

Не знаю, как сделать чтобы числа до знака «=» помещались например в Edit2, а после знака «=» - в Edit3.

Примерно такой код видел, но не черта не понял.

---

← →
Zeqfreed ©   (2006-04-21 22:07) [1]

var
 p : Integer;
begin
 p := Pos("=", Edit1.Text);
 if (p < 1) then
  raise Exception.Create("Invalid input")
 else begin
  Edit2.Text := Copy(Edit1.Text, 1, p);
  Edit3.Text := Copy(Edit1.Text, p + 1, length(Edit1.Text));
 end;
end;

---

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

Скачать: CL | DM;



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