Thema
:
Delphi
Absatz im Label
Einzelnen Beitrag anzeigen
Interceptor
Registriert seit: 28. Mai 2004
Ort: Würzburg
118 Beiträge
Delphi 6 Professional
#
4
Re: Absatz im Label
25. Jun 2004, 15:51
jau, die gibt es:
+ #13#10 +
In deinem Falle dann:
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.Timer1Timer(Sender: TObject);
var
Memory: TMemoryStatus;
begin
Memory.dwLength := Sizeof (Memory);
GlobalMemoryStatus(Memory);
label1.Caption := ('
Speicher:
' +
IntToStr(Memory.dwTotalPhys
div
1048576) + '
MByte
' + #13#10 + '
Freier Speicher:
'+
IntToStr(Memory.dwAvailPhys
div
1048576) + '
MByte
');
end
;
Mfg, Interceptor
Edit: Mist, zu spät
David
Zitat
Interceptor
Öffentliches Profil ansehen
Mehr Beiträge von Interceptor finden