Автор Ётас Витман задал вопрос в разделе Другие языки и технологии
Проблемы с RadioGroup в Делфи и получил лучший ответ
Ответ от Плутарх из Херонеи[гуру]
Очень просто. Просто построчно читать из файла (если, конечно, ответы расположены построчно. Если нет - чуть сложнее). Почитай о работе с файлами.
procedure addRG(RadioGroup:TRadioGroup);
var
s: string;
f: text;
begin
AssignFile(f,'1.txt');
Reset(f);
while not eof(f) do begin
readln(f,s);
RadioGroup.Items.Add(s);
end;
CloseFile(f);
end;
Если не понятно как работать с процедурой - пиши на почту.
Ответ от Евгений Ломега[гуру]
List := TStringList.Create;
....
List.LoadFromFile('ответы. txt');
....
RadioGroup1.Items.Clear;
For i := x1 to x2 do RadioGroup1.Add(List.Items[i]);
....
List.Free;
В принципе это говнокод но работать будет, в реале нужно создать свой класс на базе TStrings или лучше TObgectList. Ко всему прочему ответы нужно хранить в зашифрованном виде.
Если хочешь реально чему то научится, пиши на почту
List := TStringList.Create;
....
List.LoadFromFile('ответы. txt');
....
RadioGroup1.Items.Clear;
For i := x1 to x2 do RadioGroup1.Add(List.Items[i]);
....
List.Free;
В принципе это говнокод но работать будет, в реале нужно создать свой класс на базе TStrings или лучше TObgectList. Ко всему прочему ответы нужно хранить в зашифрованном виде.
Если хочешь реально чему то научится, пиши на почту
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Проблемы с RadioGroup в Делфи
Программа Теста на Лазарусе, Delphi. Как сделать вывод и выбор ответов?
Вот для 2х радиогруппов. Пример простейший, уверен можно более грамотно оформить, но это не ко мне
подробнее...