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

Как присвоить длину поля EditBox переменной?   Найти похожие ветки 

← →
Стас   (2008-05-27 18:17) [0]

Пробую присвоить перемнной длину поля EditBox
procedure TForm1.Button1Click(Sender: PObj);
var len, res: integer; usedit: string;
begin
usedit:=EditBox1.Text;
len:=StrLen(usedit); // ошибка Incompatible types: "String" and "PChar"
form:=((len*2)*(len*2))*2;
EditBox2.Text:=Int2Str(form);
end;
Что я делаю не так?

---

← →
Стас   (2008-05-27 18:21) [1]

Пардон, вот так у мен...

Пробую присвоить перемнной длину поля EditBox
procedure TForm1.Button1Click(Sender: PObj);
var len, res: integer; usedit: string;
begin
usedit:=EditBox1.Text;
len:=StrLen(usedit); // ошибка Incompatible types: "String" and "PChar"
RES:=((len*2)*(len*2))*2;
EditBox2.Text:=Int2Str(RES);
end;
Что я делаю не так?

---

← →
Стас   (2008-05-27 18:23) [2]

Пардон, вот так у мен...

Пробую присвоить перемнной длину поля EditBox
procedure TForm1.Button1Click(Sender: PObj);
var len, res: integer; usedit: string;
begin
usedit:=EditBox1.Text;
len:=StrLen(usedit); // ошибка Incompatible types: "String" and "PChar"
RES:=((len*2)*(len*2))*2;
EditBox2.Text:=Int2Str(RES);
end;
Что я делаю не так?

---

← →
Дмитрий К ©   (2008-05-27 19:05) [3]

Length(usedit)

---

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

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



Память: 0.45 MB
Время: 0.012 c