Zum Inhalt springen

BillyBoy84

Mitglieder
  • Gesamte Inhalte

    224
  • Benutzer seit

  • Letzter Besuch

Beiträge von BillyBoy84

  1. Also ich hab mir gestern alles wunderbar eingestellt in meinem Router und es hat Internet und Netzwerk zwischen den 3 PC's funktioniert!

    Nun hab ich meinen Rechner neu gestartet und das Internet funktioniert nicht mehr, habe keine Änderungen vorgenommen und auch das Netzwer geht noch, kann auch nicht auf das Adminpanel vom Router zugreifen, woran kann das liegen?

  2. Genau, benutze TTable und die Fehlermeldung kommt, wenn ich das Programm starte! Wo der Fehler ist wird mir nicht angezeigt!

    Das ist mein Quelltext in der Unit:

    procedure TForm4.AntwortAClick(Sender: TObject);
    
    Begin
    
      Antwort:=table1.FieldByName('Loesung').AsString; //Lösung überprüfen
    
        If Antwort=AntwortA.Caption then //Vergleich von Lösung und Antwort
    
          Begin
    
            Antwort:= 'True';
    
            Showmessage('Die Antowrt ist richtig');
    
          end
    
          else
    
            Begin
    
              Antwort:= 'False';
    
              Showmessage('Die Antowrt ist falsch');
    
            end;
    
      //AntwortA.Checked:=False;
    
      Spielbrett.show; //Öffnet wieder Spiel
    
      table1.First;
    
      for id:=0 to random(anzahl) do //ruft neue Frage auf
    
        Begin
    
          table1.Next;
    
        end;
    
      close;
    
    
    end;
    
    
    procedure TForm4.AntwortBClick(Sender: TObject);
    
    Begin
    
      Antwort:=table1.FieldByName('Loesung').AsString;
    
        If Antwort=AntwortB.Caption then
    
          Begin
    
            Antwort:= 'True';
    
            Showmessage('Die Antowrt ist richtig');
    
          end
    
          else
    
            Begin
    
              Antwort:= 'False';
    
              Showmessage('Die Antowrt ist falsch');
    
            end;
    
      //AntwortB.Checked:=False;
    
      Spielbrett.show;
    
      table1.First;
    
      for id:=0 to random(anzahl) do
    
        Begin
    
          table1.Next;
    
        end;
    
      close;
    
    
    end;
    
    
    procedure TForm4.AntwortCClick(Sender: TObject);
    
    Begin
    
      Antwort:=table1.FieldByName('Loesung').AsString;
    
        If Antwort=AntwortC.Caption then
    
          Begin
    
            Antwort:= 'True';
    
            Showmessage('Die Antowrt ist richtig');
    
          end
    
          else
    
            Begin
    
              Antwort:= 'False';
    
              Showmessage('Die Antowrt ist falsch');
    
            end;
    
      //AntwortC.Checked:=False;
    
      Spielbrett.show;
    
      table1.First;
    
      for id:=0 to random(anzahl) do
    
        Begin
    
          table1.Next;
    
        end;
    
      close;
    
    
    end;
    
    
    procedure TForm4.AntwortDClick(Sender: TObject);
    
    Begin
    
      Antwort:=table1.FieldByName('Loesung').AsString;
    
        If Antwort=AntwortD.Caption then
    
          Begin
    
            Antwort:= 'True';
    
            Showmessage('Die Antowrt ist richtig');
    
          end
    
          else
    
            Begin
    
              Antwort:= 'False';
    
              Showmessage('Die Antowrt ist falsch');
    
            end;
    
      //AntwortD.Checked:=False;
    
      Spielbrett.show;
    
      table1.First;
    
      for id:=0 to random(anzahl) do
    
        Begin
    
          table1.Next;
    
        end;
    
      close;
    
    
    end;
    
    
    procedure TForm4.FormCreate(Sender: TObject);
    
    
    begin
    
      randomize;
    
      id:=0;
    
      anzahl:=table1.recordCount;
    
      for id:=0 to random(anzahl) do
    
        Begin
    
          table1.Next;
    
        end;
    
    end;
    
    
    
    procedure TForm4.DataSource1DataChange(Sender: TObject; Field: TField);
    
    begin
    
      anzahl:=Table1.RecordCount;
    
    end;
    
    
    end.
    
    

  3. Jetzt bekomme ich noch folgende Fehlermeldung:

    Im Projekt Projekt1.exe ist eine Exception der Klasse EDatabaseError
    
    aufgetreten! Meldung 'Table1: Opaeration bei geschlossener Datenmenge
    
    nicht ausführbar' Prozeß wurde angehalten! Mit einzelne Anweisung oder
    
    Start fortsetzen!

    Das Programm hatte an meinem Rechner funktioniert, nur woanders treten Fehler auf :-(

  4. Ich hab ein Programm geschrieben in Delphi und auch eine Datenbank erstellt, funktioniert auch alles super!

    Nur wenn ich das Programm wo anders starten will, als von meinem Rechner, denn kommt die Fehlermeldung, dass er den Pfad d:/Programm _delphi/Fragenkatalog.db nichz findet!

    Ich habe aber im Programm keinen Pfad angegeben, wo könnte der nun stehen oder wie kann ich den ändern?

  5. Hab mir jetzt 2 Domains im Paket mit Webspace usw. geholt! Nun wollte ich mein Forum (phpbb) auf diesen Webspace kopieren und hab auch die Datenbank usw. angelegt!

    Jetzt geht das Forum aber nur mit Grafiken, wenn ich penssler-beyer.de/forum/index.php eingebe, wenn ich gerrit4u.de/forum/index eingebe, denn gehen die Grafiken nicht! Das Forum soll aber auf dem 2ten gehen und nicht auf dem ersten! Wenn ich mich beim ersten einlogge, springt er auch wieder auf die gerrit domain und das Forum zeigt wieder keine Grafiken!

    Woran liegt das nun, kann mir jemand helfen?

  6. Also hab folgendes Problem: Wenn ich am Rechner arbeite, ohne einen Ordner zu öfnen, also im Internet surfe usw. denn ist alles OK! Sobald ich einen Ordner öffnen will oder den Arbeitsplatz, dann ist meine CPU zu 100% ausgelastet, woran kann das liegen? Kann echt keinen Ordner mehr öffnen! ISt das ein Wurm, ein Virus, ein Trojaner? Oder was kann es sein? Kann mir jemand bitte weiterhelfen?

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...