Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

В чом ошыбка?


Blaster ©   (2005-01-19 23:46:00) 

Я новичок в это деле,помагите в чом тут ошыбка?

procedure TForm1.Button1Click(Sender: TObject);
var n: string;
var m: string ;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=n+m;
end;

end.


SergP   (2005-01-20 21:06:00) [1]


> В ч ом ош ыбка?


Судя по сабжу - в ДНК.


боби   (2005-01-20 19:08:00) [2]

> В чом ошыбка?

ERROR HAS YOU


Knight   (2005-01-20 19:06:00) [3]


> Poirot ©   (20.01.05 19:02)

%)


боби   (2005-01-20 19:04:00) [4]

ну и программеры растут......


Poirot   (2005-01-20 19:02:00) [5]

Knight ©   (20.01.05 18:52) [11]
пойду с горя напишу очередную фичу :((


Knight   (2005-01-20 18:52:00) [6]


> [10] Poirot ©   (20.01.05 09:31)

Наверно ты из гумунитария уже вырос, а до программера ещё не дорос... %)


Poirot   (2005-01-20 09:31:00) [7]

Это всё школа Барсика видимо:)
Knight ©   (20.01.05 02:00) [9]
Видимо я вообще смесь и того и того - я и ошыбку нашёл и над кодом долго смеялся:) Бедный мой животик:))


Knight   (2005-01-20 02:00:00) [8]


> [7] palva ©   (20.01.05 00:39)
> Главную ошибку вы и не заметили

Всё правильно... мозг работает избирательно, поэтому, каждый видит своё...
гуманитарий - в первую очередь ошибки в словах...
программист - в коде... остальное для него не существует
%)


KilkennyCat   (2005-01-20 01:57:00) [9]

Как иногда говорится, ошибка в ДНК, что гораздо раньше [7]


palva   (2005-01-20 00:39:00) [10]

Главную ошибку вы и не заметили
В чом ошыбка?даже две.
Всё с этого начинается.


Yanis   (2005-01-20 00:33:00) [11]

Первый вариант вообще не болжен работать :) там надо

n:=StrToInt((length('samir'));
m:=StrToInt(length('kimona'));


заменить на


n:=IntToStr((length('samir'));
m:=IntToStr(length('kimona'));


> и по первому варианту будет 56, по второму 11
ну да. Там же строки складываются :)


Anatoly Podgoretsky   (2005-01-20 00:23:00) [12]

и по первому варианту будет 56, по второму 11


Yanis   (2005-01-20 00:14:00) [13]

Я такое вообще первый раз вижу. Это нечто. Не знаю что сказать :) Можно так и так:


var n: string;
var m: string ;
begin
n:=StrToInt((length('samir'));
m:=StrToInt(length('kimona'));
edit1.Text:=IntToStr(n+m);


или же


var n: integer;
var m: integer;
begin
n:=length('samir');
m:=length('kimona');
edit1.Text:=IntToStr(n+m);


Profi   (2005-01-19 23:59:00) [14]

Это прикол что ли? Ошибка на ошибке! Два var'а, n и m типа string, а им присваевают число, и когда edit1.Text:=n+m;то если n и m все же строки inttostrне надо!


palva   (2005-01-19 23:52:00) [15]

edit1.Text:=n+m;

Правую часть нужно предварительно перевести в строку

edit1.Text:=IntToStr(n+m);

(Вроде бы только что на такой же вопрос отвечали.)


Vasya.ru   (2005-01-19 23:52:00) [16]

var один раз пиши:
var
 n : string;
 m : string;


Наверх

Титульная страница Поиск, карта сайта Написать письмо