var n: string;
var m: string ;
begin
n:='samir';
m:='kimona';
edit1.Text:=n+m;
в чем тут ошыбка
Я новичок в это деле,помагите в чем тут ошыбка?
procedure TForm1.Button1Click(Sender: TObject);
var n: string;
var m: string ;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
var n: string;
var m: string ;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;
end.
Цитата:
Originally posted by kuma
Я новичок в это деле,помагите в чем тут ошыбка?
procedure TForm1.Button1Click(Sender: TObject);
var n: string;
var m: string ;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;
end.
Я новичок в это деле,помагите в чем тут ошыбка?
procedure TForm1.Button1Click(Sender: TObject);
var n: string;
var m: string ;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;
end.
Непонятно откуда end.. Но это мелочь... Если ты хочешь сложить две строки, то надо так.
Код:
А вообще, что ты хотел, чтобы программа делала?
P.S. Всем плевать, что ты новичок.
Если чесно я другое хотел.Читал что function length считает символы. И я хочу чтобы при нажатие прога считал количество на данных словах,сложыл их, результат в Edit1.
Сам написал вот такой:
procedure TForm1.Button1Click(Sender: TObject);
var n,m: integer;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=inttostr(n+m);
end;
Может у тебя что нибуть разумное?!Поделись
Сам написал вот такой:
procedure TForm1.Button1Click(Sender: TObject);
var n,m: integer;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=inttostr(n+m);
end;
Может у тебя что нибуть разумное?!Поделись
Код:
var
s1,s2 : AnsiString;
numb : integer;
begin
s1:="Hello";
s2:="World";
numb:=(s1+s2).Length();
Edit1.Text:=IntToStr(numb);
s1,s2 : AnsiString;
numb : integer;
begin
s1:="Hello";
s2:="World";
numb:=(s1+s2).Length();
Edit1.Text:=IntToStr(numb);
Написано по аналогии с C++.
[color=RED]P.S. ЖИ и ШИ пиши с И.[/color]
Цитата:
Originally posted by kuma
Я новичок в это деле,помагите в чем тут ошыбка?
procedure TForm1.Button1Click(Sender: TObject);
var n: string;
var m: string ;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;
end.
Я новичок в это деле,помагите в чем тут ошыбка?
procedure TForm1.Button1Click(Sender: TObject);
var n: string;
var m: string ;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;
end.
Ладно End. пропустим.
И допустим,что это конец модуля.
А вот зачеи два Var?
Однако это пишется так:
procedure TForm1.Button1Click(Sender: TObject);
var
n: string;
m: string ;//можно и так,но зачем?
//так то читабельней
var
n,m:string;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;
Вот так будет правильно.:D
Цитата:
Originally posted by Bumer
Вот так будет правильно.:D
Вот так будет правильно.:D
Ага, особенно с типами - полный ништяк. Компилить-то художество хоть пробовал?
Цитата:
Originally posted by smartsoft
Ага, особенно с типами - полный ништяк. Компилить-то художество хоть пробовал?
Ага, особенно с типами - полный ништяк. Компилить-то художество хоть пробовал?
Да что вы докопались до человека? :)
Он же написал окончательную, правильную версию, которую при желании не грех и оптимизировать, но для начала сойдет.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var n,m: integer;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=inttostr(n+m);
end;
var n,m: integer;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=inttostr(n+m);
end;
Цитата:
Originally posted by Sagittarius
Да что вы докопались до человека? :)
Он же написал окончательную, правильную версию, которую при желании не грех и оптимизировать, но для начала сойдет.
Да что вы докопались до человека? :)
Он же написал окончательную, правильную версию, которую при желании не грех и оптимизировать, но для начала сойдет.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var n,m: integer;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=inttostr(n+m);
end;
var n,m: integer;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=inttostr(n+m);
end;
Цитата:
Originally posted by DJFlint
M и N должны быть не STRING a INTEGER
Цитата:
Originally posted by DJFlint
M и N должны быть не STRING a INTEGER
M и N должны быть не STRING a INTEGER
А. Это не он написал, а lord kelvin. :-D
Ну все равно. Что вы так поносите человека? Можно подумать, когда вы начинали писать, то сразу во всем разобрались?