1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

procedure TForm2.FormActivate(Sender: TObject);
var
fragedat, test, frage, antwort, antwortphp, zeilenumbruch: string;
i, endoffile, index : integer;
F, G, K : Textfile;
begin
    CreateDir('fragebogen');
    endoffile:=0;
    AssignFile(G, 'fragen/fragen.fbe');
    Reset(G);
    while not Eof(G) do
      begin
        endoffile:= endoffile + 1;
        Readln(G, test);
        Readln(G, test);
      end;
    CloseFile(G);
    AssignFile(K, 'fragen/fragen.fbe');
    Reset(K);
    for i:=1 to endoffile do begin
    fragedat:= 'fragebogen/frage';
    fragedat:= fragedat + inttostr(i);
    fragedat:= fragedat + '.php';
    AssignFile(F, fragedat);
    ReWrite(F);
    exportieren.caption:=fragedat;
    Readln(K, frage);
    Readln(K, antwort);
    ShowMessage(antwort);
    zeilenumbruch:= 'print "<br>";';
    Writeln(F, '<?php');
    frage:= 'print " ' + frage + '";';
    Writeln(F, frage);
    Writeln(F, zeilenumbruch);
    if (antwort=inttostr(0)) or (antwort=inttostr(-1)) then begin
    antwortphp:= 'print "<input type=\"Text\" name=\"antwort\"></input>";';
    Writeln(F, antwortphp);
    end
    else if (antwort=inttostr(2)) then begin
    antwortphp:= 'print "<input type=\"Text\" name=\"antwort\"></input>";';
    Writeln(F, antwortphp);
    end
    else if (antwort=inttostr(1)) then begin
    antwortphp:= 'print "<input type=\"Radio\" name=\"antwort1\">Ja</input>";';
    Writeln(F, antwortphp);
    Writeln(F, zeilenumbruch);
    antwortphp:= 'print "<input type=\"Radio\" name=\"antwort2\">Nein</input>";';
    Writeln(F, antwortphp);
    end;
    Writeln(F, '?>');
    end;
    CloseFile(F);
    CloseFile(K);
    ProgressBar1.max:=100;
    for index:=1 to 100 do ProgressBar1.stepit; // oder .position
    end;