Exeption bei m:=inttostr(integer(mm))

[Teekeks]

Hi!
Ich habe wiedereinmal ein Problem.
Und zwar folgendes:
Ich will mir einen Erinnerer Bauen, habe aber ein Problem mit dieser Procedure:

Delphi-Quellcode:

procedure TForm1.UppdateEvents;
var i,x:integer;
    deli:string;
    s:integer;
    a:string;
begin
  Form1.Cursor:=crHourGlass;
  AllEvents:=LoadAllSimpleEvents;
 for i:=0 to High(AllEvents) do

    if IsInTime(20,AllEvents[i].Date) then
    begin
      for x:=1 to 21-Length(AllEvents[i].Title) do
        deli:=deli+'      ';
      Listbox1.Items.Add(AllEvents[i].Title+deli+DateAsString(AllEvents[i].Date,'.')+'  '+InXDays(AllEvents[i].Date));
      deli:='';
    end;
 Feiert:=TFeiertage.Create;
 Feiert.Jahr:=YearAsInteger(Date);
 Feiert.Land:=BB;
 for s:=trunc(Date-3) to trunc(Date+30) do
 begin
   DateAsString(s,'.',a);
   if Feiert.IstFeiertag(DayAsInteger(s),MonthAsInteger(s),YearAsInteger(s)) then
     Listbox1.Items.Add('Feiertag    '+a+'   '+InXDays(s));
 end;
 Form1.Cursor:=crDefault;
end;

Dort bleibt er mit ner Exeption bei "deli:=deli+' ';" stehen.
Manchmal aber auch in dieser Procedure:

Delphi-Quellcode:

function DateAsString( Dateintern:TDateTime;Delemiter:string):string;
var yy,mm,dd:Word;
    y,m,d:string;
begin
  DecodeDate(Dateintern,yy,mm,dd);
  d:=inttostr(integer(dd));
  m:=inttostr(integer(mm));
  y:=inttostr(integer(yy));
  result:=d+Delemiter+m+Delemiter+y;
end;

Bei "m:=inttostr(integer(mm));".
Und das lustigste ist: Ich benutze diese procedure (uppdateevents)
ständig. Und beim Starten(er soll alles laden) funktioniert das auch. nur nicht wenn ich die aus Form2 anspreche(Main.uppdateevents;).

Ich weis echt nicht was ich falsch mache...

bitte helft mir!

gruß Teekeks

[nuclearping]

:wiejetzt:

[Die Muhkuh]

Ich würde fast tippen, dass die Arraygrenzen bei der For-Schleife erreicht werden, mal so ins Blaue rein *g*

[Teekeks]

Zitat:

Zitat von nuclearping

:wiejetzt:

Genau das dachte ich mir auch^^
Ich versteh den Fehler einfach nicht ^^
[edit]Hmmm. Das könnte sein. Muss ich mir mal angucken. ich hab bis jetzt noch nicht viel mit dynamischen arrays zutun gehabt...
Ich suche dort mal...

[SirThornberry]

könntest du bitte einen aussagekräftigen Titel verwenden der das Problem wenigstens ansatzweise beschreibt. Derzeit weiß man nur das es wohl um eine procedure geht aber wann geht es in Delphi mal nicht darum? :)

[Die Muhkuh]

Zitat:

Zitat von SirThornberry

könntest du bitte einen aussagekräftigen Titel verwenden der das Problem wenigstens ansatzweise beschreibt. Derzeit weiß man nur das es wohl um eine procedure geht aber wann geht es in Delphi mal nicht darum? :)

Wenn es um eine Funktion geht :stupid:

[Teekeks]

Ja. aber ich dachte "hmmm. ne procedure kommt vor und ich kann das problem nicht genau beschreiben weil ich es nicht verstehe. " Ich finde daher das der Titel aus meiner sicht passt :P Wäre schön wenn du mir einen anderen vorschlägst, mir fällt nichts anderes ein ^^
[roter kasten] Um genau zu sein um eine Procedure und um eine function ^^

[nuclearping]

Das Problem ist einfach zu schwer einzugrenzen, da du's ziemlich verwaschen vorträgst. Dafür war das "Hä, wie jetzt". "Manchmal bleibt er da stehen, manchmal da" ... Dann bei 'ner String-Operation kommt 'ne Exception ... Hä? Grenze das Problem doch bitte mehr ein.

[Teekeks]

mein Problem ist das ich das nicht kann. Ich mache mehrmals hintereinander das selbe und es Debugger sagt bei jedem mal das an einer stelle(immer eine der beiden) eine Exeption auftritt.

[Meflin]

Dann setzte Breakpoints und gehe schrittweise die beiden Funktionen durch oder verwende asserts um den Fehler einzugrenzen. Mabuse hat hier auch ein tolles Tutorial dazu verfasst. Wenn du dich im Debugger mal auskennst, wirst du ihn nicht mehr vermissen wollen ;)