Хотя код дейсвительно корявый...

Цитата(Snick_Y2K @ 19.12.2002, 13:36)

Хотя код дейсвительно корявый...

Вовсе не обязательно, если у человека было написано 200 строк кода, а он решил опубликовать только значимые для данного вопроса строки - то вот и результат, я вполне допускаю, что в оригинале между каждыми 2мя приведенными строками был десяток других и смысл тогда в таком построении мог быть вполне очевидный. Собственно не в корявости дело, код рабочий, визуальный элемент не меняет заголовок только из-за не выполнения прорисовки (сообщений формой)

РАБОЧИЙ КОД? Vit, ты не прав... Данные файла массиву так не присваиваются, хотя я тоже поленился и сделал это через memo, но всё равно, непонятно чего он хотел записать в массив, но явно не содержимое файла, те решения которые ты с Pegas'ом ему дали, не уверен что таковыми являются, единственное что вы сделали - это дали задержку, чтобы было видно, что капшен радиокнопки меняется, не уверен, что это то что нужно... Плюс он не закрыл файл, понимаю что это не ошибка, но всё же недочёт... Не ты не Pegas, ведать, не пробовали запускать этот код, (хотя я, честно говоря, тоже его не запускал), но код НЕРАБОЧИЙ...

Ладно, не буде превращать топик во флейм, извените....

Ну если кто-то ленится, то я нет - не надо меня обвинять в ленности, я взял этот код, откомпиллировал в Delphi5 - всё абсолютно рабочее, всё присваивается, в этом коде формально, ошибок нет! Если он у тебя не работает то хочу услышать конкретное мнение почему? Помимо общей корявости я вижу только 2 существенных прокола этого кода:

1) Не отслеживается конец файла  (если файл содержит больше или меньше 42 строк, то он читать файл будет, но скорее всего не так как хотел автор) - но как я говорил - я не уверен что дополнительные операторы не были стёрты, вот я и не берусь судить правильность результата
2) нет application.processmessages - поэтому не прорисовывается заголовок RadioButton.


2Snick_Y2K: посмотри внимательно на код

По поводу мемо - это тоже очень коряво и не всегда работает:
1) зачем использовать мемо, если для этих целей достаточно TStringList
2) Если файл например 1 гигабайт то ни в мемо ни в  TStringList ты его не загрузишь, а вот построчно загрузить первые 42 строки в массив - запросто.

В том то и дело, что в массив он грузит 42 раза 42-ю строку (как по твоему это может в двойном цикле нормально записаться), мемо я сам из-за лени вставил, первое что подруку подвернулось. При чем тут application.processmessages и RadioButton.Cарtion? Думаешь он хочет просто на время , чтобы посмотреть что присвоилось? Или он по событию нажатия кнопки хочет изменить капшен... Это мы можем узнать только из уст автора топика...

Вот вариант без мемо:

Код

procedure TForm1.Button1Click(Sender: TObject); var f1:System.Text; s1:shortstring; i:integer; b:array[0..30]of string; begin assignfile(f1,'f1.txt'); reset(f1); i:=0; while not eof(f1) do begin   readln(f1,s1);   b[i]:=s1;   i:=i+1; end; CloseFile(f1); radiobutton1.Caption:=b[button1.Tag]; button1.Tag:= button1.Tag+1; if button1.Tag>29 then button1.Tag:=0; end;

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

Цитата

РАБОЧИЙ КОД? Vit, ты не прав... Данные файла массиву так не присваиваются...Не ты не Pegas, ведать, не пробовали запускать этот код, (хотя я, честно говоря, тоже его не запускал), но код НЕРАБОЧИЙ...

Первым делом, что я сделал, прежде чем отвечать и развивать эту тематику, так это скомпилировал и запустил этот  код..... Вы Snick_Y2K меня поражаете......  Как Вы можете так уверенно говорить, что код нерабочий, даже если Вы не пробовали его запускать? Дам Вам одни совет (хотя и не люблю это делать в таких случаях), впредь не пускайтесь в дисскусии, прежде чем не удостоверитесь, что Вы правы.... В этот раз Вы просто выставили себя, не в самом лучшем, для себя свете.....

МОДЕРАТОР: Надеюсь больше не будем превращать тему во флейм.... топики по поводу рабочего или нерабочего кода, а так же не относящиеся к заданному вопросу, впредь будут удаляться.