Speicherüberlauf nach ca. 5 Minuten

[mlspider]

Ich glaube nicht, dass es etwas mit der Funktion zutun hat.

Delphi-Quellcode:

function vergleicheStringsN(s1, s2:string; n:Word): Boolean;

 var i: Word;
  function delLZ(s: string): string;
  var ss: string;
      i, j: Word;
  begin
   j:=0; ss:='';
   for i:=1 to Length(s) do
   begin
    if (s[i] <> ' ') and (s[i] <> '-') then
    begin
     Inc(j);
     ss:= ss + s[i]
    end;
    if j=n then Break
   end;
   Result := UpperCase(ss)
  end;

  begin
   if delLZ(s1)=delLZ(s2) then Result:=True else Result:=False;
  end;
  var flag:word;

Diese soll lediglich zwei Strings vergleichen. String1 hat einen festen Wert "Wiedergabe". Innerhalb der Timer Prozedur wird nun periodisch verglichen. Nach den Puffern bekommt String2 den Wert "Wiedergabe". Also ist es True. Ich hoffe ich habe mich verständlich ausgedrückt.

Übrigens der Timer wird schon mit Klick auf Play auf True gesetzt.

Der Timer bleibt solange True, bis ich die Wiedergabe beende. Ich vermute schon, dass es am Timer liegt.