Code: Alles auswählen
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.TextOut(10, 10, 'Hello' + LineEnding + 'World');
end;
Windows und Linux habe eine ganze andere Ausgabe, siehe Anhang.
Ist dies ein Bug ?
Code: Alles auswählen
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.TextOut(10, 10, 'Hello' + LineEnding + 'World');
end;
Windows und Linux haben andere Zeichen für den Zeilenumbruch. Das ist nicht ideal aber nicht zu ändern.
Code: Alles auswählen
InitiateSystemShutdownExA(nil, nil, 0, true, false, $0005000F);
Windows nutzt als LineEnding Chr 13 (Carriage Return = Wagenrücklauf) und 10 (Line Feed = Zeile hinzufügen). Linux nutzt nur Chr 10.
Code: Alles auswählen
procedure TForm1.FormPaint(Sender: TObject);
var
i: integer;
begin
Canvas.Font.CharSet := OEM_CHARSET;
Canvas.Font.Name:='Terminal';
for i := 0 to 255 do begin
Canvas.TextOut((i mod 16) * 20, (i div 16 * 20), char(i));
end;
end;