Writeln funktioniert, aber Length gibt mir 5 aus. Bei der for-Schleife, werden am Schluss '0' ausgegeben.
Code: Alles auswählen
program Project1;
var
pc: PChar;
i: integer;
begin
pc := 'XXXXXXXXXXXXXXXXXXX';
WriteLn(pc);
pc := '12345';
WriteLn(pc);
for i := 0 to 10 do begin
Write(byte(pc[i]): 4);
end;
WriteLn();
WriteLn(Length(pc));
end.
oder ist es besser, wen ich
Code: Alles auswählen
pc := '12345' + #0;