PHP DM Gate v0.9 » Как присвоить длину поля EditBox переменной? <span class="vd">[Delphi, Windows]</span>

Стас (27.05.08 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;

Что я делаю не так?

<Цитата>
Стас (27.05.08 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;
Что я делаю не так?

<Цитата>
Стас (27.05.08 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;

Что я делаю не так?

<Цитата>
Дмитрий К © (27.05.08 19:05) [3]

Length(usedit)

<Цитата>