Seltsames IDE-Verhalten (Code-Vervollständigung)

[wendelin]

Hallo,
hier ist der Code:

Delphi-Quellcode:

(* Die selbe Proc wie unten;
Ab dieser Position ( vom Ende der Unit aus gesehen ) funktioniert alles richtig
sowohl die Code-Vervollständigung als auch comp. und run.
procedure TNeuroNet.BitBtn1Click(Sender: TObject);
begin
  StringGrid3.Visible := FALSE;
end;  *)

(****************************** für SpriNN ************************************)

procedure TNeuroNet.SpeedButton14Click(Sender: TObject);
Var
   MyStringList_1,MyStringList_2,MyStringList_3  : TStrings;
   PfadName_1,PfadName_2,MyString                : STRING;
   Zaehler,Position,i                            : integer;
begin
  if (globMDIFensterOn = TRUE) AND (AktieEingelesen = TRUE) AND (active = TRUE) THEN
  begin
    MyStringList_1 := TStringList.Create;
    MyStringList_2 := TStringList.Create;
    MyStringList_3 := TStringList.Create;
    try
    { use the string list }
(* -------------------------------------------------------------------------------------------------------- *)
      PfadName_1 := 'D:\Programme\Borland\Delphi6\Projects\MyMapMode\Quotes\'+ g_ComplName[MDIFNr];
      PfadName_2 := 'G:\Programme\SPRINN\SpriNN Professional 3.0 (eng)\Data\'+ g_ComplName[MDIFNr] + '.txt';
(* -------------------------------------------------------------------------------------------------------- *)
      MyStringList_1.Clear;
      MyStringList_2.Clear;
      MyStringList_3.Clear;
      MyStringList_1.LoadFromFile(PfadName_1);
      MyStringList_1.Delete(0);   // die ersten 3 Zeilen löschen
      MyStringList_1.Delete(0);   // die ersten 3 Zeilen löschen
      MyStringList_1.Delete(0);   // die ersten 3 Zeilen löschen

      Zaehler := MyStringList_1.Count;

      For i := (Zaehler - 1) DownTo 0 do     // Reihenfolge vertauschen
      begin                                  // mit Hilfe von MyStrinList_3
        MyStringList_3.Add(MyStringList_1[i]);
      end;
      MyStringList_1.Assign(MyStringList_3); // und wieder MyStringList_1 zuordnen
      For i := 0 To (Zaehler - 1) do
      begin
        MyString := MyStringList_1.Strings[i];
        Position := Pos('-',MyString);
        Delete(MyString,Position,1);    // 1.Bindestrich in Date löschen
        Position := Pos('-',MyString);
        Delete(MyString,Position,1);    // 2.Bindestrich in Date löschen

        Position := Pos(',',MyString);  // Komma's löschen und mit Blank's auffüllen
        Delete(MyString,Position,1);
        Insert(' ',MyString,Position);  // 1. Komma -> Blank

        Position := Pos(',',MyString);
        Delete(MyString,Position,1);
        Insert(' ',MyString,Position);  // 2. Komma -> Blank

        Position := Pos(',',MyString);
        Delete(MyString,Position,1);
        Insert(' ',MyString,Position);  // 3. Komma -> Blank

        Position := Pos(',',MyString);
        Delete(MyString,Position,1);
        Insert(' ',MyString,Position);   // 4. Komma -> Blank

        Position := Pos(',',MyString);
        Delete(MyString,Position,1);
        Insert(' ',MyString,Position);   // 5. Komma -> Blank

        Position := Pos(',',MyString);
        Delete(MyString,Position,1);
        Insert(' ',MyString,Position);   // 6.Komma -> Blank

        Delete(MyString,Position,10);    // wichtig ! Korrektur-Daten löschen
        Insert(' ',MyString,Position);

        Position := Pos(',',MyString);
        Delete(MyString,Position,1);
        Insert(' ',MyString,Position);

        Insert(g_ShortName[MDIFNr],MyString,1);  // An 1. Stelle 'CODE' !
        Trim(MyString);                        // führende & folgende Leerstellen löschen

        MyStringList_1.Delete(i);              // StringListe mit neuem  'MyString'
        MyStringList_1.Insert(i,MyString);     // & überschreiben !!
        MyStringList_2.Add(MyString);

      end;
      MyStringList_2.Assign(MyStringList_1);
      MyStringList_2.SaveToFile(PfadName_2);
    finally
      MyStringList_1.free;
      MyStringList_2.free;
      MyStringList_3.free;
    end;
  end;
end;


procedure TNeuroNet.SpeedButton11Click(Sender: TObject);
begin
  If PrinterSetUpDialog1.Execute THEN
  begin
   //  Dummy
  end;
end;

  //  Test, der nicht funktioniert was NUR die Code - Vervollständigung betrifft
  //  jedoch lässt sich (ohne Code - Vervollständigung) alles korrekt kompilieren
  //  und das Prog. läuft auch korrekt
procedure TNeuroNet.BitBtn1Click(Sender: TObject);
begin
  StringGrid3.Visible := FALSE;
end;          // Hier kommt oben erwähnter Error : unable to invoke Code...
              // nach Eingabe des Punktes
end.

möglicherweise kennt ja jemand einen solch seltsamen Fehler.
Wendelin