Point nach Str?

[AlexII]

Wer kann mir sagen wie man Point nach String umwandelt?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var p: TPoint;
begin
p := ScreenToClient(Mouse.CursorPos);
ShowMessage(????PointToStr(p));              <- kann hier nämlich die "p" nicht ausgeben
end;

Danke!

[himitsu]

Ein TPoint besteht aus 2 Integern ... wie wäre es also, wenn du diese Integer einzeln umwandelst?

[Bernhard Geyer]

Wir wäre es mit Format?

Delphi-Quellcode:

Format('x=%d, y=%d', [p.x, p.y]);

[DeddyH]

Delphi-Quellcode:

function PointToStr(aPoint: TPoint): string;
begin
  Result := Format('X: %d, Y: %d',[aPoint.X, aPoint.Y]);
end;

[edit] *Huch*, wo kommen die Antworten denn plötzlich her? :shock: [/edit]