|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#28
|
||||
|
||||
А что в нем так? Вот что это такое?
Код:
SetLength(byteArray, 5); for i := 0 to (Length(byteArray)-1) do begin byteArray[0] := StrToInt(Edit1.Text); byteArray[1] := StrToInt(Edit2.Text); byteArray[2] := StrToInt(Edit3.Text); byteArray[3] := StrToInt(Edit4.Text); byteArray[4] := StrToInt(Edit5.Text); end; Дальше идем. Код:
z1:=0; while z1 > 0 do Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |