小弟是个刚学DELPHI的新手，现在有急事求助各位大侠，等着救命啊，UP有分

Question

我学delphi才两个礼拜，可老板要我做个小软件的DEMO，急啊。
内容描述如下：
1.一个FORM，FORM上有三个LAB，两个Radiobtn，一个ComboBox。一个Button
2.两个文本文件，data.txt和answer.txt
data.txt的内容共有四行：
对当今网络现状的调查
问题一|是|否
问题二|答案一|答案二|答案三
问题三|是|否answer.txt是用来记录在FORM选择后的答案的。
记录样式如下：
比如选择问题一的“是”就记录成：1|1   选择“否”就是：1|2
如果选择问题二的“答案三”就记录成：2|3  以此类推3.主要完成功能是：（1）窗体一启动。Lab1显示：“对当今网络现状的调查”，lab2显示“共有几个问题，当前是第几个问题”
Lab3显示：“问题一”， Radiobtn1显示“是”，Radiobtn2显示“否”
（2）做出选择后，单击Button，把当前的答案记录到answer.txt中。同时，窗体上的控件内容变成如下：Lab1还是显示：“对当今网络现状的调查”，lab2显示“共有几个问题，当前是第几个问题”，Lab3显示：“问题二”，ComboBox显示“答案一、答案二、答案三”。这是要求Radiobtn隐藏。同样。做出选择后，单击Button，把当前的答案记录到answer.txt中。
（3）读“问题三”的时候同（1）一样。就是要这时要把ComboBox隐藏。显示Radiobtn
（4）在做（1）（2）是Button的Caption显示“下一个问题”当做到（3）时Button的Caption显示“完成”不知道，我这样的描述，各位大侠有没有明白。希望，好心的大侠给出我原代码。
或者发到我邮箱里：[email protected]  

Answer 1

必须用txt吗？用ini很简单的
另外。你们老板有病吗？为什么不用数据库？

Answer 2

建立两个文本文件，data.txt中是问题，answer.txt是回答。程序中直接调用DATA。TXT，在DATA。TXT中有每个问题的开始符和结束符。在确认答案后在一旁显示以下答案结果并且在ANSWER。TXT中进行记录。具体是对文件操作，你可以上网查找一下。

Answer 3

对当今网络现状的调查是要做 B/S 结构的吗？
若是就用其它工具吧，如 ASP、JSP ……
用Delphi做这种程序没意思

Answer 4

同意 beata88(学习，学习，再学习！) 整个程序不难写，但是希望你能从中学到点什么。

Answer 5

谢谢大家的意见，可是我是真的来不及了，因为，我刚进公司，还在试用期，所以没办法，拿来救命的。delphi我会好好学的。可是，现在的问题，已经不容我漫漫来了。

Answer 6

总算给你做完了，哈哈，分，待会发到你的邮箱
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
const
  answerfile = 'answer.txt';
var
  flag: integer;//从一个字符传中读取'|'其前的字符串function getstring(str: string): string;
var
  i: integer;
begin
  result := '';
  i := 1;
  while str[i] <> '|' do
  begin
    result := result + str[i];
    i := i + 1;
  end;
end;//写入函数procedure writetofile(num, anw: integer);
var
  tf: textfile;
begin
  assignfile(tf, answerfile);
  if not fileexists(answerfile) then
    rewrite(tf)
  else
    append(tf);
  writeln(tf, inttostr(num) + '|' + inttostr(anw));
  closefile(tf);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  strlst: TStringList;
  i: integer;
begin
  strlst := Tstringlist.Create;
  strlst.LoadFromFile('data.txt');
  label1.Caption := '对当今网络现状的调查';
  label2.Caption := '共有3个问题，当前是第' + inttostr(flag) +
    '个问题';
  if flag<4 then
    label3.Caption := getstring(strlst.Strings[flag]);
  case flag of
    0: begin
        inc(flag);
        label2.Caption := '开始';
      end;
    1: begin
        form1.RadioGroup1.Visible := true;
        button1.Caption := '下一步';
        inc(flag);
      end;
    2: begin
        writetofile(flag-1, form1.RadioGroup1.ItemIndex + 1);
        form1.RadioGroup1.Visible := false;
        combobox1.Visible := true;
      combobox1.Clear;
      for i:=1 to 3 do
      combobox1.Items.Add(getstring(strlst.Strings[i]));
        inc(flag);
      end;
    3: begin
        writetofile(flag-1, combobox1.ItemIndex + 1);
        combobox1.Visible := false;
        form1.RadioGroup1.Visible := true;
        button1.Caption := '完成';
        inc(flag);
      end;
    4:begin
       writetofile(flag-1, form1.RadioGroup1.ItemIndex + 1);
       application.Terminate;
      end;
  end;
  strlst.Free;end;procedure TForm1.FormCreate(Sender: TObject);
begin
  flag := 1;
end;end.

Answer 7

全拷下来，然后
在form上面拖三个label 一个button 
一个combobox 和radiogroup,名字都不用改，就可以运行了

Answer 8

该结帖了
先在DELPHI安装盘的\project 下建立两个txt文件。
GHOSTMIRROR的程序我帮你运行过了，没问题！

Answer 9

呵呵，data.txt要事先建立，answer.txt就不用建立了
如果不存在就建立，并增加数据到里面，如果存在，就直接加到文件尾部