[Delphi] Tijden in array dan controleren werkt niet

[dumpie]

Probleem: De tijden uit het bestand worden niet in de array gezet.

Nu ben ik bezig voor een vriend om een programmaatje te maken dat op gepaalde tijden 1 geluid afspeelt.

Het zit zo:

Je leest een bestand in met openen, in dat bestand staan de tijden:

14:50:03
14:59:10
enz

En die lees ik in in een ListBox.
Daarna worden de items in een Array gegooid en wil ik dus controleren of de windows tijd gelijk is aan die tijd.

Nu heb ik de hele code geschreven, maar het lijkt al verkeerd te gaan bij het in de Array stoppen (Daarom heb ik er even een memo testveld bij gegooid)..
Ziet misschien iemand de fout?

Ik heb al een dag lopen zoeken op google naar hoe arrays precies werken, etc.
Dus kwam ik bij het volgende artikel uit: http://www.delphibasics.co.uk/RTL.asp?Name=Array, dat precies gedaan maar werkt nog niet .

Omdat dit morgen af moet zijn kan ik eigenlijk zelf niet langer op zoek gaan en hoopte dat 1 van jullie me kan helpen.

Code:

code:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Menus, StdCtrls, CheckLst, ExtCtrls; 

type 
  TForm1 = class(TForm) 
    MainMenu1: TMainMenu; 
    Bestand1: TMenuItem; 
    Open1: TMenuItem; 
    N1: TMenuItem; 
    Exit1: TMenuItem; 
    DlgOpen: TOpenDialog; 
    ListTime: TListBox; 
    Timer: TTimer; 
    Label1: TLabel; 
    Memo1: TMemo; 
    TimerClock: TTimer; 
    procedure Exit1Click(Sender: TObject); 
    procedure Open1Click(Sender: TObject); 
    procedure TimerTimer(Sender: TObject); 
    procedure TimerClockTimer(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 
  VarI, VarT, VarLoad: Integer; 
  VarTime: Array of String; 

implementation 

{$R *.dfm} 

procedure TForm1.Exit1Click(Sender: TObject); 
begin 
 Application.Terminate; 
end; 

procedure TForm1.Open1Click(Sender: TObject); 
begin 
 if DlgOpen.Execute then 
  try 
   ListTime.Items.LoadFromFile(DlgOpen.Filename); 
   SetLength(VarTime, ListTime.Count + 1); 
   VarI := 0; 
   VarLoad := 1; 
     while VarI < ListTime.Count do 
      begin 
       VarTime[VarI] := ListTime.Items[VarI]; 
       VarI := VarI + 1; 
       Memo1.Lines.Add(VarTime[VarI]); 
      end; 
  except 
   ShowMessage('Fout bij laden bestand.') 
  end; 
end; 

procedure TForm1.TimerTimer(Sender: TObject); 
begin 
 if VarLoad = 1 then 
  begin 
   VarI := 0; 
    while VarT = 0 do 
     begin 
      if TimeToStr(Time) = VarTime[VarI] then 
       begin 
        VarI := 0; 
        ShowMessage('Het is tijd.'); 
        exit; 
       end 
      else 
       VarI := VarI + 1; 
     end; 
  end; 
end; 

procedure TForm1.TimerClockTimer(Sender: TObject); 
begin 
 Label1.Caption := TimeTostr(Now); 
end; 

end.

Alvast hartelijk bedankt!

Johan

[ Voor 4% gewijzigd door dumpie op 29-04-2004 14:12 ]

[bigbeng]

nevermind

[ Voor 85% gewijzigd door bigbeng op 29-04-2004 14:09 ]

[Creepy]

Zou je misschien kunnen vertellen WAT er is mis gaat? EN je post aanpassen zodat je code tussen [ code ] en [ /code ] tags staan? Dat maakt de boel wat leesbaarder.

Ik zie al wel iets wat niet klopt aan je code, je reserveert nergens ruimte voor de array zelf. Als je eej dynamische array maakt zul je met bijv. setlength() de grootte van de array moeten bepalen.Beter opletten, die setlength() staat er wel

[ Voor 7% gewijzigd door Creepy op 29-04-2004 14:10 ]

[NMe]

1) Je geeft geen foutmelding
2) Je gebruikt geen code tags
3) "Hij doettut niet, help!"

Magere topicstart, kun je iets duidelijker zijn?

[NMe]

Creepy schreef op 29 april 2004 @ 14:09:
Ik zie al wel iets wat niet klopt aan je code, je reserveert nergens ruimte voor de array zelf. Als je eej dynamische array maakt zul je met bijv. setlength() de grootte van de array moeten bepalen.

dumpie schreef op 29 april 2004 @ 14:05:
SetLength(VarTime, ListTime.Count + 1);

Hij gebruikt SetLength.

edit:
Vuilak, je post aanpassen terwijl ik schrijf!

[ Voor 54% gewijzigd door NMe op 29-04-2004 14:12 ]

[RobLemmens]

Voeg deze code eens toe en geef dan de naam van de fout die optreedt

op regel 60:

Except
on e: exception do begin
ShowMessage('Fout:' + e.Message);
end;
end;


Misschien dat je dan wel weet wat er aan de hand is.

[dumpie]

Hoi Rob,

Ik heb nu de volgende code maar krijg geen foutmelding:

code:

procedure TForm1.Open1Click(Sender: TObject);
begin
 if DlgOpen.Execute then
  try
   ListTime.Items.LoadFromFile(DlgOpen.Filename);
   SetLength(VarTime, ListTime.Count + 1);
   VarI := 0;
   VarLoad := 1;
     while VarI < ListTime.Count do
      begin
       VarTime[VarI] := ListTime.Items[VarI];
       VarI := VarI + 1;
       Memo1.Lines.Add(VarTime[VarI]);
      end;
   except
   on e: exception do begin
   ShowMessage('Fout:' + e.Message);
 end;
 end;
end;

Het opsaaln zou ook goed moeten gebeuren want doe ik bijvoorbeeld dit:

Memo1.Lines.Add(VarTime[1]) dan krijg ik netjes de tijd terug.
Het vage is echter als ik dit doe: Memo1.Lines.Add(VarTime[VarI]) dan krijg ik totaal geen echo van 1 tijd terwijl dit toch goed zou moeten zijn.

[Creepy]

Heb je al door de code heen gestapt op het moment dat je de array vult? Wat wordt erin gezet? Wat komt er in te staan?

Als je door je code heen had gestapt, dan had je gezien dat je VarI eerst ophoogt, en daarna pas een item probeert af te drukken.

[ Voor 37% gewijzigd door Creepy op 29-04-2004 14:27 ]

[Icelus]

Delphi:

procedure TForm1.TimerTimer(Sender: TObject); 
begin 
 if VarLoad = 1 then 
  begin 
   VarI := 0; 
    while VarT = 0 do 
     begin 
      if TimeToStr(Time) = VarTime[VarI] then 
       begin 
        VarI := 0; 
        ShowMessage('Het is tijd.'); 
        exit; 
       end 
      else 
       VarI := VarI + 1; 
     end; 
  end; 
end; 

De while lus wordt nooit afgebroken (variabele VarT krijgt geen nieuwe waarde). Er zal ook op een gegeven moment buiten het array gelezen worden omdat er geen controle op de waarde van VarI is.

[dumpie]

Icelus schreef op 29 april 2004 @ 14:28:

Delphi:

procedure TForm1.TimerTimer(Sender: TObject); 
begin 
 if VarLoad = 1 then 
  begin 
   VarI := 0; 
    while VarT = 0 do 
     begin 
      if TimeToStr(Time) = VarTime[VarI] then 
       begin 
        VarI := 0; 
        ShowMessage('Het is tijd.'); 
        exit; 
       end 
      else 
       VarI := VarI + 1; 
     end; 
  end; 
end; 

De while lus wordt nooit afgebroken (variabele VarT krijgt geen nieuwe waarde). Er zal ook op een gegeven moment buiten het array gelezen worden omdat er geen controle op de waarde van VarI is.

Hiervoor zorgt toch het exit statement?

[Creepy]

dumpie schreef op 29 april 2004 @ 14:30:
[...]


Hiervoor zorgt toch het exit statement?

Lees eens wat er gezegd wordt...... je checkt of VarT een waarde bereikt, terwijl je in je lus VarT nooit update......

[dumpie]

Thnx creepy, ik heb het aangepast en nog eens goed nagelezen.
Afgaande op jullie reacties en heb nu de volgende code die werkt:

code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, CheckLst, ExtCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Bestand1: TMenuItem;
    Open1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    DlgOpen: TOpenDialog;
    ListTime: TListBox;
    Timer: TTimer;
    Label1: TLabel;
    Memo1: TMemo;
    TimerClock: TTimer;
    procedure Exit1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure TimerClockTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  VarI, VarT, VarLoad: Integer;
  VarTime: Array of String;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
 if DlgOpen.Execute then
  try
   ListTime.Items.LoadFromFile(DlgOpen.Filename);
   SetLength(VarTime, ListTime.Count + 1);
   VarI := 0;
     while VarI < ListTime.Count do
      begin
       VarTime[VarI] := ListTime.Items[VarI];
       VarI := VarI + 1;
      end;
   VarLoad := 1;
   Timer.Enabled := True;
  except
   ShowMessage('Fout bij laden bestand.');
  end;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
 if VarLoad = 1 then
  begin
   VarI := 0;
    while VarI < ListTime.Count do
     begin
      if TimeToStr(Time) = VarTime[VarI] then
       begin
        VarI := 0;
        ShowMessage('Het is tijd.');
        exit;
       end
      else
       VarI := VarI + 1;
     end;
  end;
end;

procedure TForm1.TimerClockTimer(Sender: TObject);
begin
 Label1.Caption := TimeTostr(Now);
end;

end.

Thanx guys!!!

Ik had nu alleen nog een vraag waarom moet ik de array 1 extra plaatsje geven met setlength(... + 1) want als ik die 1 weglaat krijg ik foutmelding.