Платные хостинги     Раскрутка сайта     Книги по программированию

О радиокнопках, Пара вопросов о радиокнопках

- Делаю я прогу в ней радиокнопка должна поменять название 42 раза,  ну я беру считываю построчно из текстового файла строки , записываю в массив и элементи массива присваиваю имени кнопки.Все хорошо, да что-то не выходит!!!!Помогите!?:;;"**(

- Типичная ошибка в 13й стоке программы.

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

- Да я и так присваиваю Caption только нифига, пашет но при нажатии кнопки Кэпшн пропадает и самое странное когда несколько раз нажимаешь на кнопку(обычную, не радио которой я задаю эту программу) в кэпшене радиокнопки мигают строчни фаила, но только мигают на 0,1 секунды беспоряжочно вобщем бардак полный

- Если ты всё правильно сделал, то ошибки быть не должно... Покажи код...

- Код ...  private    { Private declarations }    rnd              : integer;  public    { Public declarations }  end;var  Form1: TForm1;implementationConst MeS: array [0..7] Of String = ('первый','второй',                                   'третий','четвёртый',                                   'пятый','шестой',                                   'седьмой','ХВАТИТ :)');{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);beginrnd:= random (3);IF rnd= 2 then RadioButton1.Caption:=(mes[random(8)]);end;...highlightSyntax('delphiNDM1M2','delphi');Я так понял, ты что то в этом роде хочешь? Я массив сделал, но что мешает из файла читать?

- Модератор: если хочешь чтобы тебе помогли, приведи отрывок кода, где по твоему мнению может скрываться ошибкаВ конце концов, мы же не экстрасенсы, чтобы увидеть, что ты там написал....

- Код выглядит приблизительно такprocedure TForm1.Button1Click(Sender: TObject); varf1:textfile;s1:shortstring;i:integer;b:array[1..42]of string;  beginassignfile(f1,'f1.txt.');reset(f1);while not eof (f1) dofor i:=1 to 42 do    Begin  readln(f1,s1);  b[i]:=s1; radiobutton1.Caption:=s1; end;end;

- Попробуй сделать так, и посмотри, что получиться:Код procedure TForm1.Button1Click(Sender: TObject);var    f1:textfile;    s1:shortstring;    i:integer;    b:array[1..42]of string;begin    assignfile(f1,'f1.txt.');    reset(f1);    while not eof (f1) do    for i:=1 to 42 do        begin            readln(f1,s1);            b[i]:=s1;            radiobutton1.Caption:=s1;            ShowMessage(s1);        end;end;highlightSyntax('delphiTcwY2Y','delphi');я только добавил строчку ShowMessage(s1), после твоей строки radiobutton1.Caption:=s1;

- Если в файле что-то есть то она у тебя и меняется, только прорисовываться ты ей не даёшь, попробуй так:Код procedure TForm1.Button1Click(Sender: TObject);var  f1:textfile;  s1:shortstring;  i:integer;  b:array[1..42]of string;begin  assignfile(f1,'f1.txt.');  reset(f1);  while not eof (f1) do    for i:=1 to 42 do      Begin        readln(f1,s1);        b[i]:=s1;        radiobutton1.Caption:=s1;        application.processmessages;        sleep(300);      end;end;highlightSyntax('delphiwMmMwO','delphi');

- А может для этой задачи использовать ТStrings? Там есть и функция считывания из файла. Ну, впрочем, можешь делать как Vit сказал, только необязательно в массив записывать эти строки. И зачем цикл в цикле? Или я чего-то не догоняю? Если тебе надо именно 42 строки считать, так применяй for, если все до конца файла, то while not eof(f1) do .......

- Я не стал оптимизировать код, так как ясно что это просто кусок чего-то и многие строки просто удалены, но если это не так, то конечно же этот кон надо очень существенно переработать в плане оптимизации.

- Я одно не пойму, зачем в массив 42 раза заносить 42-ю строку Присвоение данных в массив через двойной цикл, оригинально однако...

- А ты хоть пробывал его запускать? Код то рабочий....все правильно заноситься....да вот только на экране не успевает обновляться.... (хотя код оптимизировать ох, как надо....)

- Ну я бы предложил бросить на форму memo, и в массив заность через него, а к радиокнопке присваивать значения уже из массива, тогда можно это делать по нажатию кнопки...Код procedure TForm1.Button1Click(Sender: TObject);varf1:System.Text; s1:shortstring;i:integer; b:array[0..41]of string;begin assignfile(f1,'f1.txt'); reset(f1); while not eof (f1) do begin   readln(f1,s1);   Memo1.Lines.Add(s1); end; CloseFile(f1); for i:=0 to 41 do begin    b[i]:=Memo1.Lines[i]; end; radiobutton1.Caption:=b[button1.Tag]; button1.Tag:= button1.Tag+1; if button1.Tag>41 then button1.Tag:=0;end;highlightSyntax('delphiRhOTVh','delphi');

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD