Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Warum klappt das Label nicht

    Delphi
    by Luckie, 11. Jun 2004
  type
  TForm1 = class(TForm)
  Label1: TLabel;
  procedure FormCreate(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: Warum klappt das Label nicht

    Delphi
    by Luckie, 11. Jun 2004
  Bist du sicher dass deine Funktion Labe11 überhauot kennt? Sie ist ja keine Methode deiner Formklasse. Und Btw fände ich es so besser:
  
  function UserName: String;
  var
  Size: DWORD;
  begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
  SetLength(Result, Size)