lol, der thread ist hier sowieso ein quiz, die antworten weiss ich natürlich *g*.
ich hab noch eine:
Delphi-Quellcode:
procedure ChkResult(nick, s: string);
var
i: integer;
b: boolean;
begin
if Form1.Timer1.Enabled then
begin
if s = lowercase(Antwort) then
begin
b := false;
Form1.IdIRC1.Say('#united-forum', '14¤03¤09¤ Richtige antwort ' + nick);
Form1.Timer1.Enabled := false;
for i := 0 to high(QuizAntwort) do
begin
if QuizAntwort[i].nick = nick then
begin
inc(QuizAntwort[i].rAntworten);
b := true;
Form1.IdIRC1.Say('#united-forum', '14¤03¤09¤ ' + nick + ' hat jetzt ' + IntToStr(QuizAntwort[i].rAntworten) + ' richtige Antworten');
break;
end;
end;
if b = false then
begin
SetLength(QuizAntwort, high(QuizAntwort)+1);
QuizAntwort[high(QuizAntwort)].nick := nick;
inc(QuizAntwort[high(QuizAntwort)].rAntworten);
Form1.IdIRC1.Say('#united-forum', '14¤03¤09¤ ' + nick + ' hat jetzt ' + IntToStr(QuizAntwort[high(QuizAntwort)].rAntworten) + ' richtige Antworten');
end;
if QuizOn then
QuizProc;
end;
end;
end;
wenn jemand (in diesem fall ich) die frage richtig beantwortet, geht es bis hier:
Zitat:
[14:21:08] <ism> ¤¤¤ Was bremst die Sinkgeschwindigkeit von Weltraumsonden vor der Landung auf der Erde?
[14:21:10] <moechen-lernt> *hieks
[14:21:15] <shorty> fikh
[14:21:16] <moechen-lernt> doofe fremdwörter
[14:21:17] <shorty> hmm
[14:21:17] <shorty> huhu ihrs
[14:21:20] <michael_g> hallo
[14:21:23] <shorty> quizz0rz
[14:21:29] <michael_g> ein
[14:21:30] <silent> schwerkraft
[14:21:30] <michael_g> schirm
[14:21:35] <silent> fallschirm
[14:21:35] <moechen-lernt> huhu ihr
[14:21:35] <ism> ¤¤¤ Richtige antwort silent
dann bekomme ich eine fehlermeldung:
http://www.angelfire.com/bug/delphi/fehler.jpg
eigentlich müsste nach "richtige antwort silent" noch "silent hat jetzt ... punkte" kommen, das tut es aber nicht.
also, das ist das erste mal das ich mit dynamischen arrays arbeite, also nicht so hart sein
.
"QuizAntwort" ist eine global(damit ich von mehreren prozeduren aus zugreifen kann) definierte variable des typs "TQuizAntwort" und ist von dem aufbau her mit luckies beispiel identisch, bis auf "antworten gesamt"