Edit.text 5 mal Blinken lassen

[Sir Rufo]

Zitat von DeddyH:

Da bin ich mal gespannt, wieviel Tasten Du drücken kannst, bevor Dir der Speicher ausgeht.

Ein gutes Auto braucht viel Sprit und ein gutes Programm braucht viel Speicher.

Ich würde dieses Problem generell lösen.

Es gibt da also etwas, was innerhalb eines bestimmten Zeit-Intervalls x mal wiederholt werden soll.

Delphi-Quellcode:

TTimedActionItem = class
  property Interval : cardinal;
  property Count : cardinal;
  property OnExecute : TNotifyEvent;
  procedure Trigger;
end;

TTimedActions = class
  property ActionCount : Integer;
  property Actions[index:Integer] : TTimedActionItem;
  procedure AddAction( Action : TTimedActionItem );
  procedure Trigger;
end;

procedure TTimedActions.Trigger;
var
  LIdx : integer;
begin
  for LIdx := 0 to ActionCount - 1 do
    Actions[LIdx].Trigger;
end;

Einen Timer an TTimedActions.Trigger verdrahtet und die ActionItems feuern dann, wenn denen danach ist.

[DeddyH]

Und dann die TTimedActions-Instanz in einer Stringliste ablegen

[baumina]

was passiert eigentlich so speichermäßig genau wenn man folgendes macht?

Delphi-Quellcode:

  SL := TStringList.Create;
  SL.Add('test');
  SL := TStringList.Create;
  SL := TStringList.Create;
  SL := TStringList.Create;

[DeddyH]

Damit hast Du 4 Stringlist-Instanzen, von denen Du noch eine ansprechen und freigeben kannst, der Rest verbraucht nur noch Speicher und bringt Dir nichts.

[himitsu]

Ausprobieren?

Delphi-Quellcode:

  ReportMemoryLeaksOnShutdown := True;
  SL := TStringList.Create;
  SL.Add('test');
  SL := TStringList.Create;
  SL := TStringList.Create;
  SL := TStringList.Create; 
  ShowMessage(SL.Text);
  SL.Free;

4 Speicherlecks (die ersten 3 Stringlisten und der eine String)

[Natcree]

also sollte ich die Tstringliste nur in der Form create setzen damit siw nur einmal erstellt wird.
Mit dem st.free gebe ich nur die gespeichert strings frei richtig wäre das so etwas korreker...???

[DeddyH]

Du brauchst doch nur eine Instanz, da bietet es sich an, sie im OnCreate anzulegen und im OnDestroy wieder freizugeben. Und das Free gibt die Instanz und die enthaltenen Strings frei.

[Sir Rufo]

Zitat von Natcree:

also sollte ich die Tstringliste nur in der Form create setzen damit siw nur einmal erstellt wird.
Mit dem st.free gebe ich nur die gespeichert strings frei richtig wäre das so etwas korreker...???

Nein

Delphi-Quellcode:

st := TStringList.Create; // Instanz erzeugen (Referenz in st)
st.Add( 'hallo' ); // einen string anfügen
st.Clear; // alle strings entfernen
st.Free; // Instanz zerstören
st.Add( 'kaputt' ); // jetzt kommt ein Zugriffsfehler, weil es keine Instanz mehr an der Referenz-Adresse gibt

st := TStringList.Create; // Instanz erzeugen
st := TStringList.Create; // Instanz erzeugen, ABER die Referenz zur vorherigen Instanz ist jetzt futsch -> Speicherleck