пълнене StringGrid
Uvadaemye machtera Delphi аз имам един въпрос: Как мога да запълни StrinGgrid # XA0; записи ред по ред в случаен ред. Благодаря предварително.
Какво е вашето понятие за "ред по ред в случаен ред", че в протокола?
StringGrid1.Cells [1, 3]: = "текст в клетка";
1 - колона 3 - ред, пълна с текст "в текстовото поле" (без кавичките)
защото: = 1 до stringgrid1.colcount направи
# XA0 продължение J: = 1 до stringgrid1.rowcount направи
# XA0; # XA0; stringgrid1.cells [Ь, й]: = inttostr (случаен (100))
След това, също
случаен характер;
докато правя
StringGrid1.Cells [случаен (StringGrid1.ColCount - 1), произволен (StringGrid1.RowCount - 1)]: = inttostrt (случаен ());
> Protelepatirovali в пълен размер?
не
ред по ред в случаен ред
редове в произволен ред,
и esle по този начин:
ред по ред, в случаен ред
Duc, и [2] "ред по ред" и "poyacheechno" :) шанс - да. Но до 100-добре :)))
Yavol, Natyurlih. Освен това, че в [2] изрично "индекс от". Присъстват :)
Все още не разполага с модел, всички поръчки - случаен.
Ред или като тя няма да работи, дори и да получават чрез напълване на една линия, а след това най-малко ще трябва да попълните на клетката.
Predlaegaesh премахнете шапки и запази минута molcheniya?
Var
# XA0 п: цяло число;
Цяло число;: И, Й; # XA0
# XA0; arrs: масив от String;
започвам
# XA0; Randomize;
# XA0; SetLength (arrs, sg.RowCount);
# XA0, защото: = 0 до sg.RowCount-1 направи
# XA0; започне
# XA0; # XA0 продължение J: = 0 до 80 направи arrs [I]: = arrs [Ь] + Chr (Random (128));
# XA0; край;
# XA0 п: = sg.RowCount-1;
# XA0, защото :. = 0 до sg.RowCount-1 направи sg.Rows [Случайни (п)] CommaText: = arrs [Ь];
Е, тази фраза вероятно искате да се каже, че не е нужно да казвам нищо, защото вие сте на определението на истината.
Можете да продължите да tryndet.
Вие попитахте, аз отговорих какво иска.
> Random (п)
Къде е гаранцията, че всеки път различен брой ще падне и всички линии ще бъдат изпълнени?
Е, добре.
Задача-то решен.
Няма гаранция. Тези задачи не са си е поставила.
Ами това е само един пример.
Послепис Аз разбирам, че този метод "peranalny", но исках pobukvoedstvovat. )
> Хм. А TStringGrid.Rows собственост и метод TStrings.Assign
> Още забранен?
За Бога. Това е просто още един metod-)
Но не е толкова naglyadnyy-))
Послепис Аз разбирам, че този метод "peranalny", но исках pobukvoedstvovat. )
)) След това можете да вземете файл конец повече, и произволно (случайно) дължина на всички редове "zaloaditfromstrim". Line. Случайност определи продължителността на потока и този със съдържанието :) Това е наистина, наистина, "LOL" :)))
Дайте 80% от това, ако авторът все още се върна, се оказва, че низ трябва да бъдат взети от базата данни ;-)
Тя може да дойде, но само за да хвърли още една порция и разликата отново, той не знае / не мога да задам един въпрос, и в такива случаи, практиката понякога помага да се хвърлят на въпроса и от борбата за гледане.
Участниците в конференцията имат равни права. Като онези, които искат и тези, които са отговорни.
Конференция за начинаещи, така и за тези, които е трудно да се обясни какво иска. От участниците се изисква да бъде vzaimovezhlivymi, специалисти отделна заявка - да бъде снизходителен.
Ти извади думи от контекста.
Наричан по-долу:
Как да се даде добри отговори
Бъдете щедри. Във връзка с проблема за стреса може да направи груби или глупави хора, които не са.
На пръв грешка влиза в частна. Не е необходимо публично да унижи човека, който може честно да грешите. Един потребител новак може да не знаят как да търсят архиви или където и публикува списък с често задавани въпроси.
Ако не може да помогне, не си правете труда. Не се шегувам за процедурите, които могат да разрушат околната среда на потребителя - глупакът може да отнеме шегите ви като ръководство за действие.
Попитайте допълнителни въпроси, за да получите повече информация. Ако го направя така, нещо, с което питащият се учи - и вие също. Опитайте се да се превърне в лошо въпрос в добра; Спомням си - всички бяхме начинаещи.
Тъй като се отговори на въпроса, нека да отговоря наистина. Не предлагайте набързо създадени временни решения, ако е приложимо, по принцип, а не средство или грешен подход. Оферта с добра материална база. Нови рамки на въпроса.
Помощ в обществена полза от проблема. Когато се срещнете с добър въпрос, запитайте се: "Как трябва да се промени съответната документация или Отговори списъка, за да видите повече на този въпрос никой не попита?". След изпращане на подходящо допълнение към този, който подкрепя тези документи.
Ако отговорът на този въпрос трябва да се провеждат изследвания, споделят своя опит, а не пишете, сякаш отговорът беше паднал върху теб от небето. Отговаряйте на добър въпрос - как да се хранят гладните веднъж, но техниката за проучване на примера - тогава се научи да произвежда храна за цял живот.
> "Как трябва да се промени съответната документация или от списъка
> Често задавани въпроси, така че да попита още на никой въпрос? ".
Тогава хората няма да отидат да задават въпроси, ако отговорите от често задаваните въпроси са;)
Свързани статии