Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Unrealistischster Fehler aller Zeiten.

    Delphi
    by Sascha L, 8. Jan 2005
  Der Fehler: Listenindex überschreibt das Maximum von (0).
  
  der Fehler passiert hier:
  
  if anhang_list.count <> 0 then begin
  for i:=0 to anhang_list.Count-1 do begin
  IBTAble2.Insert;
  Pic2DB.StoreFileInDB(TBlobField(IBTable2.FieldByName('FILE')),path+'\tmp\'+anhang_list.Strings);
  IBTable2.FieldByName('ID').AsInteger := StrToInt(anhang_id_list.Strings);
  IBTable2.Post;
• Forum: Sonstige Fragen zu Delphi

  Re: Unrealistischster Fehler aller Zeiten.

    Delphi
    by Sascha L, 7. Jan 2005
  ich habe doch gesagt, dass ich das nur zum testen auf die schnelle gemacht habe und die feinoptimierung noch kommt.
  
  für mich ist "if ... then begin" identisch mit
  
  "if ... then
  begin"
  
  Diese Dinge haben nichts mit dem Fehler zu tun, ebenso die Sache mit "else" ;)
• Forum: Sonstige Fragen zu Delphi

  Re: Unrealistischster Fehler aller Zeiten.

    Delphi
    by Sascha L, 7. Jan 2005
  nein, TMemoryStream ist nicht von Indy und hat daher nichts damit zu tun. Wenn eine Variable vom Typ Tmemorystream einen Wert hat, dann hat sie ihn.
  
  Außerdem, wie eben erwähnt, ist der Inhalt ja bis zu if-Schleife vorhanden. Erst dann ist er wieder weg.
• Forum: Sonstige Fragen zu Delphi

  Re: Unrealistischster Fehler aller Zeiten.

    Delphi
    by Sascha L, 7. Jan 2005
  wenn die Werte von anhang_id_list und anhang_id_list_stream in 2 neue Variablen schreibe und diese dann in die DB schreiben lasse, geht es komischerweise.
  
  Das ist doch völlig unlogisch!
  
  Selbst bei der Prozedur "Mails2DB" hat er der Inhalt von anhang_id_list_stream, aber bei der if-Schleife ist der Stream leer. Wenn ich aber in der Prozedur vor der if-Schleife den Inhalt des Streams in...
• Forum: Sonstige Fragen zu Delphi

  Unrealistischster Fehler aller Zeiten.

    Delphi
    by Sascha L, 7. Jan 2005
  Hallo,
  
  ich habe folgenden Code (er ist erstmal nur zum Testen, daher ist er noch nicht mit try-Anweisungen, etc. optimiert worden):
  
  procedure TForm1.MailsAbrufen;
  var
  //Integers
  intIndex,i:integer;
  begin
  try