Informatika és tudomány

Hogyan lehet lekerdezni az IP cimet Delphiben?
  • [negativ] Les
    #76
    Hey.
    Lenne 1 új kérdés :)
    Van 1 Quiz ami a kérdéseket 1 txt-ből olvassa be tömbönként 1 tömb = 5 sor. (5 sor = 1 kérdés 3 lehetséges válasz + 1 x)

    íme a forrás:


    unit Qiuz;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

    const Path = 'C:\Quiz.txt';

    type
    TForm5 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form5: TForm5;
    lepes: integer;
    M: integer;

    implementation

    {$R *.dfm}

    procedure Kovetkezo;
    Var F: TextFile;
    S: String;
    i: integer;
    begin
    AssignFile(F,PAth);
    {$I-}Reset(f);{$I+}
    if IOresult<>0 then ;
    inc(lepes);
    if lepes-1=m then halt;
    for i:=1 to lepes-1 do
    begin
    readln(f,s);
    readln(f,s);
    readln(f,s);
    readln(f,s);
    readln(f,s);
    end;
    readln(f,s);form5.label1.Caption:=s;
    readln(f,s);
    if S='X' then begin
    form5.button1.tag:=1;
    ReadLn(F,s);
    form5.button1.Caption:=s;
    end
    else
    begin
    form5.button1.tag:=0;
    form5.button1.Caption:=s;
    end;
    readln(f,s);
    if S='X' then begin
    form5.button2.tag:=1;
    ReadLn(F,s);
    form5.button2.Caption:=s;
    end
    else
    begin
    form5.button2.tag:=0;
    form5.button2.Caption:=s;
    end;
    readln(f,s);
    if S='X' then begin
    form5.button3.tag:=1;
    ReadLn(F,s);
    form5.button3.Caption:=s;
    end
    else
    begin
    form5.button3.tag:=0;
    form5.button3.Caption:=s;
    end;
    CloseFile(F);
    end;



    procedure TForm5.FormCreate(Sender: TObject);
    var F: TextFile;
    S: String;
    begin
    m:=0;
    AssignFile(F,Path);Reset(F);
    while not Eof(f) do
    begin
    readln(f,s);
    readln(f,s);
    readln(f,s);
    readln(f,s);
    readln(f,s);
    inc(m);
    end;
    CloseFile(f);
    lepes:=0;
    kovetkezo;
    end;


    procedure TForm5.Button1Click(Sender: TObject);
    begin
    if Button1.Tag=1 then Label2.Caption:='Jó válasz!' else
    Label2.Caption:='rossz válasz!';
    Kovetkezo;
    end;

    procedure TForm5.Button2Click(Sender: TObject);
    begin
    if Button2.Tag=1 then Label2.Caption:='Jó válasz!' else
    Label2.Caption:='rossz válasz!';
    Kovetkezo;
    end;


    procedure TForm5.Button3Click(Sender: TObject);
    begin
    if Button3.Tag=1 then Label2.Caption:='Jó válasz!' else
    Label2.Caption:='rossz válasz!';
    Kovetkezo;

    end;

    end.

    És az lenne a gondom, hogy nicnsen olyan mint jó válasz :/.. az x utáni vagy előtti sor lenne a helyes megoldás ha jól emléxem és az x-et figyelmen kívűl kéne hagynia de nem teszi hanem 1 lehetséges megoldásnak tekinti.
    Ha pedig mögé helyezem akkor az x-et akkor a 3 választási lehetőség megvan de nincsen helyes válasz továbbra sem.

    Üdv és thx ha valakinek beugrik az a rész ahol gond van.
    ...:Dream as if you\'ll live forever, Live as if you\'ll die today:...
    ICQ: 313-755-340