Заполнение StringGrid

← →
S.[ace] (2008-06-08 17:20) [0]

Увадаемые мачтера Delphi у меня возник вопрос: Как можно заполнить StrinGgrid записями построчно в случайном порядке?? Заранее благодарен...

← →
JanMihail (2008-06-08 18:22) [1]

Что в твоем понятии "построчно в случайном порядке", что за записи?

StringGrid1.Cells[1, 3] := "текст в ячейке";

1 - колонка, 3 - строка заполнится текстом "текст в ячейке" (без кавычек)

← →
alex-drob © (2008-06-08 18:58) [2]

что-то типа:

for i:=1 to stringgrid1.colcount do for j:=1 to stringgrid1.rowcount do stringgrid1.cells[i,j]:=inttostr(random(100))

← →
korneley © (2008-06-08 19:07) [3]

Тогда уж
randomize;
while {чего-нибудь} do
StringGrid1.Cells[random(StringGrid1.ColCount - 1), random(StringGrid1.RowCount - 1)] := inttostrt(random({чего изволите}));

← →
alex-drob © (2008-06-08 19:20) [4]

написанно построчно

← →
korneley © (2008-06-08 19:40) [5]

> alex-drob © (08.06.08 19:20) [4]
> написанно построчно

Протелепатировали по-полной? Тогда объясните, что имелось в виду: " построчно в случайном порядке". Для TStringGrid - а.

← →
alex-drob © (2008-06-08 19:49) [6]

> Протелепатировали по-полной?

нет

ну есле так:

построчно в случайном порядке

то строки в случайном порядке,
а есле так:

построчно, в случайном порядке

то как в [2]

← →
korneley © (2008-06-08 19:56) [7]

Дык, и в [2] не "построчно", а "поячеечно" :) Случайно - да. Но до 100-а :)))

← →
JanMihail (2008-06-08 20:00) [8]

> korneley © (08.06.08 19:56) [7]

Автора уже нет с нами, поэтому думаю не стоит заморачиваться на этом

← →
korneley © (2008-06-08 20:07) [9]

Яволь, натюрлих... Тем более, что в [2] однозначно "индекс аут оф..." присутствует :)

← →
Desdechado © (2008-06-08 20:23) [10]

Пока не указана закономерность, все порядки - случайные.

← →
Anatoly Podgoretsky © (2008-06-08 20:46) [11]

> alex-drob (08.06.2008 19:20:04) [4]

А ни как построчно у него не получится, даже если заполнять подготовленую строку, то как минимум ее придется заполнять по ячеечно.

← →
Anatoly Podgoretsky © (2008-06-08 20:47) [12]

> JanMihail (08.06.2008 20:00:08) [8]

Предлаегаешь снять шляпы и почтить минутой молчения?

← →
Тын-Дын © (2008-06-08 21:24) [13]

Кто скажет, что условия автора не выполняются? -

var n: Integer; i,j: Integer; arrs: array of String; begin Randomize; SetLength(arrs,sg.RowCount); for i := 0 to sg.RowCount-1 do begin for j := 0 to 80 do arrs[i] := arrs[i] +Chr(Random(128)); end; n := sg.RowCount-1; for i := 0 to sg.RowCount-1 do sg.Rows[Random(n)].CommaText := arrs[i];

← →
korneley © (2008-06-08 22:47) [14]

> Anatoly Podgoretsky © (08.06.08 20:47) [12]
>Предлаегаешь снять шляпы и почтить минутой молчания?

Присоединяюсь. Аминь ему. Не путать с анафемой :)) Хотя... Как знать...

← →
Anatoly Podgoretsky © (2008-06-08 23:09) [15]

> Кто скажет, что условия автора не выполняются?

Я

← →
Тын-Дын © (2008-06-08 23:12) [16]

> Anatoly Podgoretsky © (08.06.08 23:09) [15]
> > Кто скажет, что условия автора не выполняются? Я

Ну этой фразой ты, видимо, хочешь сказать, что тебе ничего не нужно говорить, так как ты по-определению истина.

← →
Тын-Дын © (2008-06-08 23:12) [17]

Можешь продолжать трындеть.

← →
Anatoly Podgoretsky © (2008-06-08 23:23) [18]

> Тын-Дын (08.06.2008 23:12:16) [16]

Ты просил, я ответил, какие претензии.

← →
Anatoly Podgoretsky © (2008-06-08 23:24) [19]

И не трындеть, а тындынец.
Автор вопрос бросил и исчез, наверно задачу свою выполнил.

← →
alex-drob © (2008-06-08 23:26) [20]

> Random(n)

где гарантия что каждый раз будет выпадать разное число и все строки будут заполнены?

← →
Тын-Дын © (2008-06-08 23:27) [21]

> Anatoly Podgoretsky © (08.06.08 23:24) [19]
> И не трындеть, а тындынец.Автор вопрос бросил и исчез, наверно
> задачу свою выполнил.

-)

Ну и ладно.
А задачка-то решена.

← →
Тын-Дын © (2008-06-08 23:27) [22]

> alex-drob © (08.06.08 23:26) [20]
> > Random(n)где гарантия что каждый раз будет выпадать разное
> число и все строки будут заполнены?

Гарантии нет. Такой задачки не ставил перед собой.
Это ж пример просто.

← →
Anatoly Podgoretsky © (2008-06-09 01:04) [23]

> Ну и ладно.
> А задачка-то решена.

Без автора неясно.

← →
Германн © (2008-06-09 01:09) [24]

> Anatoly Podgoretsky © (08.06.08 20:46) [11]
>
> > alex-drob (08.06.2008 19:20:04) [4]
>
> А ни как построчно у него не получится, даже если заполнять
> подготовленую строку, то как минимум ее придется заполнять
> по ячеечно.
>

Хм. А свойство TStringGrid.Rows и метод TStrings.Assign уже запретили?

P.S. Я понимаю что этот способ "перанальный", но захотелось побуквоедствовать. :)

← →
Тын-Дын © (2008-06-09 01:48) [25]

> Хм. А свойство TStringGrid.Rows и метод TStrings.Assign
> уже запретили?

Ради бога. Это просто ещё один метод-)
Но не такой наглядный-))

← →
Германн © (2008-06-09 02:12) [26]

> Тын-Дын © (09.06.08 01:48) [25]
>
>
> > Хм. А свойство TStringGrid.Rows и метод TStrings.Assign
> > уже запретили?
>
>
> Ради бога. Это просто ещё один метод-)
> Но не такой наглядный-))
>

А про наглядность я не упоминал.
Но он именно "построчный", как и просили в сабже.

P.S. Я понимаю что этот способ "перанальный", но захотелось побуквоедствовать. :)

← →
korneley © (2008-06-09 07:37) [27]

:)) Тогда можно взять какой-нить файл побольше, и произвольной (случайной) длиной все rows "залоадитьфромстрим". Построчно. Случайность определится длиной стрима и содержимым файла :) Вот уж, действительно, "ржунимагу" :)))

← →
Плохиш © (2008-06-09 10:54) [28]

Даю 80%, что если аФФтар всё-таки вернётся, то окажется, что строки надо брать из базы данных ;-)

Может и придет, но только что бы бросить очередную порцию и опять пропасть, он же не знает/не умеет задать вопрос, а в таких случаях такая практика иногда помогает, бросить вопрос и со стороны наблюдать за дракой.

> [29] Anatoly Podgoretsky © (09.06.08 11:50)

Чтоб такого не было, нужно "глупые" вопросы "резать на корню"...
Может это "их" хоть как-то научит....

> {RASkov} © (09.06.08 11:58) [30]
> > [29] Anatoly Podgoretsky © (09.06.08 11:50)
>
> Чтоб такого не было, нужно "глупые" вопросы "резать на корню".
> ..
> Может это "их" хоть как-то научит....

Внимательно почитай комментарии к конференции.
И так ни с того, ни с сего загнобили новичков.

> [31] Тын-Дын © (09.06.08 12:45)
> И так ни с того, ни с сего загнобили новичков.

Где я хоть раз обидел новичка, с уважением задавшего вопрос?

> Внимательно почитай комментарии к конференции.

В первую очередь эти коментарии должны читать вопрошающие.... ибо им нужна помощь....

> В первую очередь эти коментарии должны читать вопрошающие.
> ... ибо им нужна помощь....

Участники конференции равноправны. Как те, кто спрашивает, так и те, кто отвечает.

Конференция для начинающих, а также для тех, кому сложно объяснить чего он хочет. Просьба к участникам быть взаимовежливыми, профессионалам отдельная просьба - быть снисходительными.

Получается, что комменты в первую очередь отвечающие должны читать...

> Получается, что комменты в первую очередь отвечающие должны читать...

Да не важно в какую очередь и кто должен читать комментарии... Важно уважать друг-друга...
А некоторым этого не дано, так какое им снисхождение?
Казнить на месте :)
ЗЫ: Я вообще-то добрый по жизни)

"Не думайте, что вам должны ответить. Вам никто ничего не должен; вы же, в конечном счете, не платили за эти услуги. Вы получите ответ, если заслужите его, задавая существенный, интересный и наводящий на размышления вопрос — вопрос, неявно дающий сообществу новый опыт, а не просто пассивно требующий от других поделиться знаниями."(с)We
Нес па?

> korneley © (09.06.08 22:02) [36]
> "Не думайте, что вам должны ответить. Вам никто ничего не
> должен; вы же, в конечном счете, не платили за эти услуги.
> Вы получите ответ, если заслужите его, задавая существенный,
> интересный и наводящий на размышления вопрос — вопрос,
> неявно дающий сообществу новый опыт, а не просто пассивно
> требующий от других поделиться знаниями."(с)We Нес па?

Ты выдернул фразу из контекста.
Далее по тексту:

Как давать хорошие ответы

Будьте великодушны. Связанный с проблемой стресс может делать невежливыми или глупыми людей, которые таковыми не являются.

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

Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа. Не направляйте людей по ложному пути просто потому, что вам приятно побыть в роли эксперта. Будьте скромны и честны; показывайте хороший пример для спрашивающих и коллег.

Если не можете помочь, не мешайте. Не шутите по поводу процедур, которые могут разрушить среду пользователя — этот болван может принять ваши шутки как руководство к действию.

Задавайте дополнительные вопросы, чтобы получить больше информации. Если это делать правильно, спрашивающий кое чему научится, — да и вы тоже. Попытайтесь превратить плохой вопрос в хороший; помните - все мы были начинающими.

Хотя простой ответ RTFM бывает оправдан, когда дается просто лентяю, ссылка на документацию (даже если это набор ключевых слов для поиска в Google) все же лучше.

Если уж вы отвечаете на вопрос, давайте ответ по сути. Не предлагайте наспех придуманные обходные пути, если используется в принципе не то средство или неверный подход. Предлагайте хорошие средства. Переформулируйте вопрос.

Помогите общественности извлечь пользу из вопроса. Когда встречаетесь с хорошим вопросом, спросите себя: "Как надо изменить соответствующую документацию или список ЧаВО, чтобы больше этот вопрос никто не задавал?". Затем пошлите соответствующее дополнение тому, кто поддерживает эти документы.

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

> "Как надо изменить соответствующую документацию или список
> ЧаВО, чтобы больше этот вопрос никто не задавал?".

Заставить людей ее читать наизусть

> Игорь Шевченко © (09.06.08 23:17) [39]
> > "Как надо изменить соответствующую документацию или список
> > ЧаВО, чтобы больше этот вопрос никто не задавал?".Заставить
> людей ее читать наизусть

-))

Тогда бы люди не ходили вопросы задавать, если бы ответы в FAQ были;)

Заполнение StringGrid Найти похожие ветки