Datei Lesen

Edit1->Text= qu[i].Frage; 
        Form1->Label2->Caption = qu[i].L1; 
        Form1->Label3->Caption = qu[i].L2; 
        Form1->Label4->Caption = qu[i].L3; 
        Form1->Label5->Caption = qu[i].L4;

anstatt x soll es natürlich i heißen!

WebFritzi

Benutz doch lieber ne TStringList. Dann kannst du sofort mit den AnsiString-Methoden arbeiten.

naja aber es ging ja alles!! warum geht es mit ner neueren Version nicht mehr?

Jansen

"Geht nicht" und auch "liest keine Daten mehr ein" sind keine wirklich aussagekräftigen Problembeschreibungen.

ok dann versuch ich es mal besser zu beschreiben.

also ich habe mit borland3 die oben stehenden zeilen geschrieben. damit soll eine quiz.dat ausgelesen werden und auf knopfdruck angezeigt werden. soweit hat alles funktioniert. mit borland 6 funktioniert das ganze auch noch nur das er sich die daten aus der dat datei nicht holt und somit nur eine leere anzeige erscheint.

das ganze gibt es auch als dosanwendung, da geht es wenn ich die fertige anwendung starte. nehm ich aber den quellcode und compilier es mit borland 6 neu holt er sich keine daten mehr!!

so hoffe ich konnte mein problem deutlicher beschreiben.

dankeschön

Windoof

Vielleicht solltest du statt char* lieber einen string zuweisen.

Edit1->Text = AnsiString(qu[i].Frage); 
Form1->Label2->Caption = AnsiString(qu[i].L1); 
Form1->Label3->Caption = AnsiString(qu[i].L2); 
Form1->Label4->Caption = AnsiString(qu[i].L3); 
Form1->Label5->Caption = AnsiString(qu[i].L4);

hi

also das mit dem AnsiString funktioniert leider auch nicht. Ich denke das er sich erst gar nichts in die Arrays läd!! bin aber noch nicht so lange bei c++ daher vermute ich das nur

MfG

KlausB

Hallo

da kann man nur sehr dringend den Gebrauch des Debuggers anraten
hast du schon mit dem Debugger geschaut ob er an die gewuenschte Stelle hinkommt

MfG
Klaus

ok läuft durch, aber hat halt keine daten drin.

wenn ich den array qu[50] auf qu[5] setze, dann bekomm ich daten aber halt keine vernünftigen sondern nur sonderzeichen und so!!
naja ich werd dann wohl mal borland 3 suchen gehn.

Windoof

Sonst machs doch so hier:

struct quiz
 {
   public :
     String Frage;
     String L1;
     String L2;
     String L3;
     String L4;
     int L;
     int Punkte;
   };

      int i = 0;

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
quiz qu[50];
TStringList* slListe;
slListe->LoadFromFile("quiz.dat");

     int x=0;
      while  (x<15){
      qu[x].Frage=slListe->Strings[x];
      qu[x].L1=slListe->Strings[x+1];
      qu[x].L2=slListe->Strings[x+2];
      qu[x].L3=slListe->Strings[x+3];
      qu[x].L4=slListe->Strings[x+4];
      x+=5;
        }

        Edit1->Text= qu[i].Frage;
        Form1->Label2->Caption = qu[i].L1;
        Form1->Label3->Caption = qu[i].L2;
        Form1->Label4->Caption = qu[i].L3;
        Form1->Label5->Caption = qu[i].L4;
        Edit6->Text = i;
        if (i!=0){

        int a = Edit5->Text.ToInt();

        if (a == qu[i-1].L)
        {
          Form3->Show();
        }
        else Form4->Show();
        }
        i = i+1;

        if (i==4){
        //i=0;
        Form5->Show();
        Form1->Hide();
        Form2->Hide();
        Form3->Hide();
        Form4->Hide();

        }

        Form2->Hide();
        int c = Edit4->Text.ToInt();
Form3->Edit1->Text = c;
Form5->Edit1->Text = c;

}

[/quote]

junix

Vielleicht erklärst du auch noch was du weshalb und wie geändert hast, damit er acuh weiss, was an deinem Listing besser sein sollte?

Listings dokumentiert man für gewöhnlich, bevor man sie als Lösung bereitstellt

-junix