Delphi-PRAXiS :: Das Forum für Fragen zu Delphi
Das Experten Forum für Delphi Programmierer
Hilfe für CodeGear Delphi gibts es hier im Forum
Delphi Quelltexte und Source Codes
  
Delphi-PRAXiS :: Foren-ÜbersichtForen-Übersicht Delphi-PRAXiS Modul-ÜbersichtSite-Map Delphi-PRAXiS durchsuchenSuchen Delphi-PRAXiS Code-LibraryCode-Library Jetzt registrieren!Registrieren Login  
   
 
0
 
Access violation auf Timer1, Warum?
Ein Thema von Eljey.
Vorheriges Thema anzeigen  |  Nächstes Thema anzeigen 		Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken
 
Delphi-PRAXiS Forum - Übersicht -> VCL / WinForms / Controls
Seite 1 von 1   [ 7 Beiträge ]  
 
 Autor 
  Nachricht 
 
Eljey #1|Beitrag #971377Verfasst am: 01.12.2008, 21:53      Titel: Access violation auf Timer1, Warum? Antworten mit Zitat
Mitglied
Status: offline
Beiträge: 56
angemeldet: 05.05.2007
Sprache: Lazarus

Delphi-Quellcode: zusammenfalten | markieren
If laufen then
begin
  SetForegroundWindow(archlordwnd);
  Timer1.Enabled:=false;
  messwerte[index].laufzeit:=zeit;
  Timer1.Enabled:=true;
  ShowMessage(InttoStr(zeit));
  zeit:=0;
  laufen:=false;
end;


Ich krieg in der Zeile
Delphi-Quellcode: markieren
Timer1.Enabled:=true;
immer die Fehlermeldung Access violation.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
mkinzler #2|Beitrag #971378Verfasst am: 01.12.2008, 21:55      Titel: Re: Access violation auf Timer1, Warum? Antworten mit Zitat
Moderator
Beiträge: 27.700
angemeldet: 09.12.2005
Wohnort: Heilbronn
Delphi 2010 Professional

 Anhand dieses kleinen Codesegments kann man die nicht helfen
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Meflin #3|Beitrag #971379Verfasst am: 01.12.2008, 21:55      Titel: Re: Access violation auf Timer1, Warum? Antworten mit Zitat
"Rüsselmops" ;-)
Beiträge: 4.571
angemeldet: 21.08.2003
Delphi Prism

 der Fehler bezieht sich vermutlich auf die Zeile davor, nämlich
Delphi-Quellcode: markieren
messwerte[index].laufzeit:=zeit;

Und da fällt schonmal auf, dass du index nicht als Variablennamen verwenden solltest, da es ein reservierter Bezeichner ist. Und vermutlich gibt es den Index im array messwerte nicht, was den Fehler erzeugt Wink

Yesterday upon the stair
I met a man who wasn't there.
He wasn't there again today
Oh how I wish he'd go away.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Eljey #4|Beitrag #971381Verfasst am: 01.12.2008, 21:59      Titel: Re: Access violation auf Timer1, Warum? Antworten mit Zitat
Mitglied
Status: offline
Beiträge: 56
angemeldet: 05.05.2007


 ganzer code: (Der Fehler kommt genau in der Timer Zeile, hab ich durch den Debugger laufen lassen)
Delphi-Quellcode: zusammenfalten | markieren
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
laufen:=true;
zeit:=0;
archlordwnd:=FindWindow(nil,'Archlord');
If archlordwnd<>0 Then
  ShowMessage('gefunden')
Else
  close;
end;

procedure TForm1.b_kalClick(Sender: TObject);
begin
  If i<=10 Then
  begin
  SetForegroundWindow(archlordwnd);
  Timer1.Interval:=100;
  sleep(100);
  sendZielSuchen;
  Timer1.Enabled:=true;
  sendZielAngreifen;
  end;
end;

procedure TForm1.b_stopClick(Sender: TObject);
begin
If laufen then
begin
  SetForegroundWindow(archlordwnd);
  Timer1.Enabled:=false;
  messwerte[i].laufzeit:=zeit;
  Timer1.Enabled:=true;
  ShowMessage(InttoStr(zeit));
  zeit:=0;
  laufen:=false;
end;
end;

procedure TForm1.StartClick(Sender: TObject);
begin
Timer1.Interval:=StrtoInt(LabeledEdit1.Text);
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1StopTimer(Sender: TObject);
begin

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
zeit:=zeit+1;
end;
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
toms #5|Beitrag #971382Verfasst am: 01.12.2008, 22:01      Titel: Re: Access violation auf Timer1, Warum? Antworten mit Zitat
CodeLib-Manager
Alter: 31
Status: offline
Beiträge: 4.451
angemeldet: 10.06.2002
Delphi 6 Professional

 Kommt der Fehler auch, wenn du " messwerte[i].laufzeit:=zeit;" ausklammerst?
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Meflin #6|Beitrag #971384Verfasst am: 01.12.2008, 22:02      Titel: Re: Access violation auf Timer1, Warum? Antworten mit Zitat
"Rüsselmops" ;-)
Beiträge: 4.571
angemeldet: 21.08.2003
Delphi Prism

 Aha, und wo wird dein messwerte-array initialisiert, wo bekommt i seinen Wert?!

Yesterday upon the stair
I met a man who wasn't there.
He wasn't there again today
Oh how I wish he'd go away.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Eljey #7|Beitrag #971385Verfasst am: 01.12.2008, 22:03      Titel: Re: Access violation auf Timer1, Warum? Antworten mit Zitat
Mitglied
Status: offline
Beiträge: 56
angemeldet: 05.05.2007


 nein, hast recht, hab i am anfang auf null gesetzt, das array fängt erst bei 1 an. Danke für die Hilfe, das nächste mal werde ich besser schauen Smile

 Zuletzt bearbeitet von Eljey am 01.12.2008, 22:03, insgesamt 1-mal bearbeitet.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
Anzeige-Optionen:    
 
Delphi-PRAXiS Forum - Übersicht -> VCL / WinForms / Controls Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1   [ 7 Beiträge ]  
 
  Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken 		 
   
Gehe zu:  
Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.


Impressum / Kontakt
Allgemeine Geschäftsbedingungen
Verhaltenskodex & FAQ

 Delphi-PRAXiS :: Das Forum für Delphi-Programmierer
Das Experten Forum für Delphi ProgrammiererHilfe für Borland Delphi gibts es hier im ForumDelphi Quelltexte und Source CodesDelphi-PRAXiS :: Das Forum für DelphiWindows APIInternet und NetzwerkeVCL und Datenbanken
 
Delphi-PRAXiS V.2005 III
© 2002-2010 by Daniel R. Wolf
powered by phpBB © phpBB Group
Impressum / Kontakt Allgemeine Geschäftsbedingungen