Thread: Kann ich sicher sein, das die Daten stimmen?

[Die Muhkuh]

Hi,

ok, es sind falsche Daten.

Kann ich nicht irgendwie auf den Thread warten?

Delphi-Quellcode:

procedure Tfmain.UsersGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  Data: PUserData;
  Pinger: TPinger;
begin
  Data := Users.GetNodeData(Node);

  case Column of
    0: CellText := Data^.FName;
    1: CellText := '';
    2: CellText := '';
    3:
      begin   
        Pinger := TPinger.Create(true);
        Pinger.Priority := tpTimeCritical;
        Pinger.IP := Data^.FIP;
        Pinger.Resume;
        // Hier auf den Thread warten, bis er durch ist.
        CellText := IntToStr(Time);
      end;
  end;
end;