Rausfinden welcher Record zu einem Timer gehört

[Pseudemys Nelsoni]

moin,

wenn ich etwas wie das hier habe:

Delphi-Quellcode:

type
  TMyRecord = record
    s: string;
    t: TTimer;
  end;

...

procedure timerproc(Sender: TObject);
begin
  // hier möchte ich den string des records in dem sich der timer befindet aufrufen, z.b
  showmessage(s);
end;

ok ich weiss das dort sachen wie Create etc fehlen, aber das tut hier ja nichts zur sache, das was ich wissen möchte ist so besser zu erkennen ;). Ich habe ein Array of TMyRecord, und möchte wenn das timerevent auftritt denstring "benutzen" können der sich im selben record wie der timer befindet

Nur wie?

[SirThornberry]

wenn sich die Records in einem Array befinden dann bleibt dir wohl nix anderes übrig als das array durchzugehen und auf den timer zu überprüfen

Delphi-Quellcode:

for LCount := 0 to length(myrecords) - 1 do
begin
  if myrecords[LCount].t = Sender then
  begin
    showmessage(myrecords[LCount].s);
    break;
  end;
end;

[Shaman]

Hoi

Du kannst auch im Tag des Timers einen Pointer auf den Record hinterlegen.

Gruss
Shaman

[Pseudemys Nelsoni]

danke thornberry, ich werds versuchen.

@shaman: das hört sich nach einer schnelleren methode an, aber wie setze ich da einen pointer rein?

[Shaman]

Einfach

Code:

MyTimer.Tag:= Integer(@MyRecord);

Den Record bekommst Du dann über

Code:

PMyRecord(MyTimer.Tag)^;

Gruss
Shaman

[Pseudemys Nelsoni]

moin shaman,

wie sieht PMyRecord denn aus?

[Shaman]

Delphi-Quellcode:

type
  TMyRecord = ... 
  PMyRecord = ^TMyRecord;

Das ist immer so mit denen, die ein P am Anfang haben.

Gruss
Shaman

[Pseudemys Nelsoni]

danke ^^