Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Delphi проблемка (https://forum.antichat.xyz/showthread.php?t=196723)

Sunstrider 16.04.2010 17:33
Delphi проблемка
 
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;

begin
      s:=0;
      for i:=1 to intTostr (Edit1.text) do
begin
s:=s+i;
label1.caption:=intTostr (s);

end;
end;

end.
пиплы строчка
for i:=1 to intTostr (Edit1.text) do красная,как написать чтобы юзер сам указал до какого цикл проходит с меня + сики)

h(f)ucker 16.04.2010 17:36
intTostr - функция перевода целого значения переменной в строковое, а надо наоборот

Код:
for i:=1 to StrToInt(Edit1.text) do

Sunstrider 16.04.2010 18:06
label1.caption:=intTostr (s);
как сделать чтобы он выводил сумма =s помоги пожалуйста

h(f)ucker 16.04.2010 18:08
Цитата:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
begin
      s:=0;
      for i:=1 to StrToInt (Edit1.text) do
begin
s:=s+i;
end;
label1.caption:='сумма = ' + intTostr (s);
end;
end.
///

HakaR 16.04.2010 18:10
Он какбэ и так выводит сумму "s"...или я что-то не понял.

upd
:o

Sunstrider 16.04.2010 18:10
хакер ответил спасиб ;) изучаю циклы терь думаю авто регер написать

EndLeSSDre@M 16.04.2010 18:32
Цитата:
Сообщение от Sunstrider
хакер ответил спасиб ;) изучаю циклы терь думаю авто регер написать
:D :D :D удачного тебе написания)))) если уж ты такие простые вещи не знаешь))) очередной быдло кодер))

fenixelite 16.04.2010 18:38
EndLeSSDre@M +1 :)

Sunstrider, тебе бы сначала хотя бы основы выучить.. а потом уже всякие регеры писать...

HakaR 16.04.2010 18:39
ТС, ты же уже с инди работал, регер акков писал...а щас только начал изучать циклы? :confused:
И в том сорце уже есть циклы :o

Sunstrider 16.04.2010 18:55
там други помогали


Время: 10:14
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице