c code nach delphui übersetzen

[Waldteufel]

Hi.

Delphi-Quellcode:

{code 1}

program code1;

uses
  System;  

var
  c : char;
begin
  // convert text file to plp
  Read(c);
  while c <> #26 do 
  begin
    Write(c, #0); // copy char to output + append zero after each char
    Read(c);
  end;
end.

Delphi-Quellcode:

program code2;

uses
  System;

var
  c : char;
begin
  // convert plp file to text
  Read(c);
  while c <> #26 do
  begin
    if c <> #0 then // filter zeros
      Write(c);
    Read(c);
  end;
end.

[edit] Das ist eine 1:1 Übersetzung. Für jeden C-Befehl einen Delphi-Befehl... Es geht sicherlich eleganter... [/edit]