c code nach delphui übersetzen

[Waldteufel]

Hi.

z.B. so:

Delphi-Quellcode:

{ in Edit1 steht der Name der Eingabedatei }
{ in Edit2 steht der Name der Ausgabedatei }

procedure TForm1.Button1OnClick(Sender : TObject); // umwandeln
var
  c : char;
  fin, fout : file;
begin
  Assign(fin, Edit1.Text);
  ReSet(fin);
  Assign(fout, Edit2.Text);
  ReWrite(fout);
  // convert text file to plp
  Read(fin, c);
  while c <> #26 do
  begin
    Write(fout, c, #0); // copy char to output + append zero after each char
    Read(fin, c);
  end;
  Close(fin);
  Close(fout);
end;

procedure TForm1.Button2OnClick(Sender : TObject); // zurückwandeln
var
  c : char;
  fin, fout : file;
begin
  Assign(fin, Edit1.Text);
  ReSet(fin);
  Assign(fout, Edit2.Text);
  ReWrite(fout);
  // convert plp file to text
  Read(fin, c);
  while c <> #26 do
  begin
    if c <> #0 then // filter zeros
      Write(fout, c);
    Read(fin, c);
  end;
  Close(fin);
  Close(fout);
end;

Warnung: Ungetestet!