Text (ASCII) Datei

[Christian18]

Hallo,

ich habe gerade mal eine kleine Routine programmiert die das für Dich erledigt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var o : TOpenDialog;
      f1, f2 : TextFile;
      s1, s2 : String;
      s : TSaveDialog;
begin
  o:=TOpenDialog.Create(self);
  s:=TSaveDialog.Create(self);

  if o.Execute then
    begin
      AssignFile(f1, o.FileName);
      Reset(f1);
      if s.Execute then
        begin
          AssignFile(f2, s.FileName);
          Rewrite(f2);
          while not Eof(f1) do
            begin
              Readln(f1, s1);
              s2:=StringReplace(s1, ' ', ';', [rfReplaceAll]);
              s:=TSaveDialog.Create(self);
              Writeln(f2, s2);
            end;
          CloseFile(f2);
        end;
      CloseFile(f1);
    end;
  s.Free;
  o.Free;
end;

Edit:

Wenn du große Files konvertieren willst, dann würde ich noch empfehlen eine ProgressBar oder Gauge einzubauen, damit der Benutzer weiß, wielanger er nch warten muß, bis das programm fertig ist mit der ausführung.

MFG Christian18