| |
|
|
 |
Autor |
Nachricht |
 |
| |
|
|
| |
| mkinzler |
#2| Verfasst am: 01.12.2008, 21:55 Titel: Re: Access violation auf Timer1, Warum? |
 |
 |
 |
|
Moderator Beiträge: 27.700 angemeldet: 09.12.2005 Wohnort: Heilbronn Delphi 2010 Professional

|
Anhand dieses kleinen Codesegments kann man die nicht helfen |
|
 |
|
|
|
| |
| Meflin |
#3| Verfasst am: 01.12.2008, 21:55 Titel: Re: Access violation auf Timer1, Warum? |
 |
 |
 |
|
"Rüsselmops" ;-) Beiträge: 4.571 angemeldet: 21.08.2003 Delphi Prism

|
der Fehler bezieht sich vermutlich auf die Zeile davor, nämlich
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 |
 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. |
 |
|
|
|
| |
| Eljey |
#4| Verfasst am: 01.12.2008, 21:59 Titel: Re: Access violation auf Timer1, Warum? |
 |
 |
 |
|
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 | 1 · · · 5 · · · · 10 · · · · 15 · · · · 20 · · · · 25 · · · · 30 · · · · 35 · · · · 40 · · · · 45 · · · · 50 · · · 54
| 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; |
| |
|
 |
|
|
|
| |
| toms |
#5| Verfasst am: 01.12.2008, 22:01 Titel: Re: Access violation auf Timer1, Warum? |
 |
 |
 |
|
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? |
|
 |
|
|
|
| |
| Meflin |
#6| Verfasst am: 01.12.2008, 22:02 Titel: Re: Access violation auf Timer1, Warum? |
 |
 |
 |
|
"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. |
 |
|
|
|
| |
| Eljey |
#7| Verfasst am: 01.12.2008, 22:03 Titel: Re: Access violation auf Timer1, Warum? |
 |
 |
 |
|
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 |
Zuletzt bearbeitet von Eljey am 01.12.2008, 22:03, insgesamt 1-mal bearbeitet. |
 |
|
|
|
 |
|
 |
| |
|
|
| |
 
|
|