Zitat von
Assertor:
Hallo,
Einfach her mit den Beispielen, dann schauen wir weiter.
IDIrc.Pas hat, keine ahnung, da du ja keine fehler machst nenne ich das mal ein feature.
Feature: procedure TIdIRC.ParseCTCPQuery(AContext: TIdContext; const CTCPQuery, AChannel: String);
Wird nicht angesprungen da die auswertung in procedure TIdIRC.CommandPRIVMSG(ASender: TIdCommand); gefeatured ist.
Ändert man CommandPRIVMSG so ab das das feature raus ist, passiert folgendes...
Delphi-Quellcode:
procedure TIdIRC.ParseCTCPQuery(AContext: TIdContext; const CTCPQuery, AChannel: String);
var
CTCP: String;
LTmp: String;
LTmp1: String;
begin
CTCP := CTCPQuery;
LTmp := FetchIRCParam(CTCP); <-- hier wird CTCP gelöscht!!!!!
LTmp1 := CTCP; <-- LTmp1 bekommt ''
case PosInStrArray(LTmp1, IdIRCCTCP) of
Die case anweisung trifft NIE zu weil LTmp1 '' (leer) ist. Im grunde ist es sogar glück das er dort nie hinkommt. Aber das wirst du besser wissen als ich.
Da ich nicht weiter deinen ruf schädigen möchte, wird das das einzige post zu diesem thema von mir sein.
Nur noch eins zu deinem post.
Meiner meinung nach ist dein post absolut geil. Ich sage Routine A hat das und das, du schreibst, bei Routine B geht das. Wenn deine reagition nicht so traurig und armseelig wär, könnt ich mich wegschmeissen vor lachen.
So, da haste deine Beispiele..... nun werde glücklich damit.
Gruss