Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
21.04.2010, 13:38
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от Ponchik
И ещё... Может можно как-то не вбивать точное кол-во элементов, ну в смысле не
users: array[1..100] of string;
а
users: array[1..?] of string;
а потом какойнить count() считать количество, чоб не прогонять все 100 всёвремя  попробуй так:
PHP код:
massiv: array of integer;
begin
setLength(massiv, <нужный размер>);
или так:
PHP код:
const
N = 5;
ArrStr : array[1..N] of String
незнаю, может можно попробовать ввод N сделать до начала тела программы... надо будет попробовать
|
|
|
21.04.2010, 13:43
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
Да вона код s0l_ir0n'а работат вродебе...
БЛЯТЬ! Что опять нетак?!
users[length(users)+1] := Nick;
[Error] irc.pas(116): Constant expression violates subrange bounds
и users[] := Nick; тоже не хочет
Последний раз редактировалось Ponchik; 21.04.2010 в 13:55..
|
|
|
|
21.04.2010, 14:11
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
users[length(users)+1] := Nick;
У тебя массив имеет длину length(например 10) а ты хочешь присвоить значение
элементу с индексом length + 1(например 11) - т.е. несуществующему элементу
И у тебя кстати вроде статически массив объявлен
Последний раз редактировалось GhostOnline; 21.04.2010 в 14:15..
|
|
|
|
21.04.2010, 14:13
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
няяя... Ну а как мне заполнять массив... Знач надо прогонять от 1 до length и смареть если значение пустое, знач туда писать, а как пустое смареть? empty() нету вродебе...
|
|
|
|
21.04.2010, 14:18
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Проверяем все ли заполнены:
for i := 0 to high(users) do
begin
if users[i] = '' then
............
end;
Заполняем:
for i := 0 to high(users) do
begin
users[i] := .............
end;
|
|
|
|
21.04.2010, 14:27
|
|
Новичок
Регистрация: 07.04.2007
Сообщений: 27
Провел на форуме:
338084
Репутация:
-8
|
|
подскажите как правильно создавать и очищать динамический массив
я в начале цикла объявляю длину массива так setlength(массив, длина); а в конце цикла пытаюсь очистить массив так setlength(массив, 0); но при переходе в следующий цикл старые данные остаются и к ним добавляются новые данные
по некоторым советам пробовал еще в конце цикла делать так Finalize(массив); но результат без изменений
Последний раз редактировалось buket; 21.04.2010 в 14:32..
|
|
|
|
21.04.2010, 14:28
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
PHP код:
function count_array(array1 : array of string) : integer;
var i: Integer;
begin
for i:=1 to length(array1) do
begin
if array1[i] = '' then
begin
Result := i;
Break;
end;
end;
end;
возвращает мне 1 хотя array1[1] := 'ololo';
должен 2 вернуть
====
млё... хрень какая-то... В программе array[1] = ololo а в функции = ''
чтоб руки повырывало создателям этого delphi 
Последний раз редактировалось Ponchik; 21.04.2010 в 14:31..
|
|
|
|
21.04.2010, 14:32
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Все правильно, у тебя функция и вовращает- : integer;
var i: Integer;
Result := i;
Что же ты хотел? Как она вернет сроку сели она у тебя возвращает целое число?
Напиши что КОНКРЕТНО тебе нужно от функции
чтоб руки повырывало создателям этого delphi
LOL
Я тебе показал как правильно
for i := 0 to High(users)
Гоу вставлять код на pastebay.com
Последний раз редактировалось GhostOnline; 21.04.2010 в 14:36..
|
|
|
|
21.04.2010, 14:38
|
|
Постоянный
Регистрация: 30.08.2005
Сообщений: 730
Провел на форуме:
6828219
Репутация:
2274
|
|
PHP код:
users[count_array(users)] := Nick;
count_array(users);
ShowMessage(users[count_array(users)]);
count_array(users);
функция такая
PHP код:
function count_array(array1 : array of string) : integer;
var i: Integer;
begin
for i:=1 to length(array1) do
begin
if array1[i] = '' then
begin
Result := i;
ShowMessage(IntToStr(i)+':'+array1[i]);
Break;
end;
end;
end;
Выдаёт следующие месаги:
Это как так... array[1] = Ponchik но всёравно оно 1 возвращает, да ещё и само говорит что там ничего нет
Сообщение от GhostOnline
ебе показал как правильно
for i := 0 to High(users)
High = length
по крайней мере и то и то возвращает 50 да и не в этом трабла
>Что же ты хотел? Как она вернет сроку сели она у тебя возвращает целое число?
нахрен мне строка, мне надо число 2 чтоб вернуло, потомучто array[1] = 'Ponchik' знач не 1 надо возвращать, а 2
==============================
==============================
Чтоб было понятнее:
PHP код:
users[1] := 'ТУТ ЕСТЬ СТРОКА СУКА!';
count_array(users);
говорит
Я ничё непонимаю
Последний раз редактировалось Ponchik; 21.04.2010 в 14:48..
|
|
|
|
21.04.2010, 14:48
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
users[count_array(users)] := Nick;
ShowMessage(users[count_array(users) - 1]);
ведь ты же уже изменил массив
У меня все работает:
PHP код:
procedure TMainForm.Button4Click(Sender: TObject);
var users : array of string;
function count_array(array1 : array of string) : integer;
var i: Integer;
begin
for i:=1 to length(array1) do
begin
if array1[i] = '' then
begin
Result := i;
Break;
end;
end;
end;
begin
SetLength(users, 10);
users[count_array(users)] := 'Ponchik'; ShowMessage(users[count_array(users)- 1]);
end;
Последння строка выдает сообщение с твоим ником, если убрать - 1 то пустое, что и правильно так как
users[2] := '';
Последний раз редактировалось GhostOnline; 21.04.2010 в 14:53..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
