Moin,
wie kann ich eigentlich Text im Label mit Absätzen ausgeben?
Bei mir erscheint das alles in einer Reihe:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var
Memory: TMemoryStatus;
begin
Memory.dwLength := Sizeof (Memory);
GlobalMemoryStatus(Memory);
label1.Caption := ('Speicher: ' +
IntToStr(Memory.dwTotalPhys div 1048576) + ' MByte' + ' Freier Speicher: ' +
IntToStr(Memory.dwAvailPhys div 1048576) + ' MByte');
end;
Gibt es nicht irgendwas wie das
im
HTML?
