Konsolenanwendung: TextFile

[DeddyH]

Zeig doch mal etwas mehr Code.

[cherry]

Ok hier mein ganzer Code:

Delphi-Quellcode:

program delupientry;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, StrUtils;

var
  upi: TextFile;
  filepath: String = 'C:\upm.his';
  line: String;
  s: TStringList;


  { TODO -oUser -cConsole Main : Hier Code einfügen }

begin

  s := TStringList.Create;

  if FileExists(filepath) then
  begin
    AssignFile(upi, filepath);
    Reset(upi);
    while not Eof(upi) do
    begin
      ReadLn(upi, line);
      s.Add(line);
    end;
    CloseFile(upi);

    writeln('<böld>');
    writeln(s.CommaText);
    writeln('</böld>');
  end;
  readln;

end.

[DeddyH]

Delphi-Quellcode:

program delupientry;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, StrUtils;

var
//  upi: TextFile;
  filepath: String = 'C:\upm.his';
//  line: String;
  s: TStringList;


  { TODO -oUser -cConsole Main : Hier Code einfügen }

begin

  s := TStringList.Create;
  try
    if FileExists(filepath) then
    begin
{    AssignFile(upi, filepath);
    Reset(upi);
    while not Eof(upi) do
    begin
      ReadLn(upi, line);
      s.Add(line);
    end;
    CloseFile(upi);}
    s.LoadFromFile(filepath);

    writeln('<böld>');
    writeln(s.CommaText);
    writeln('</böld>');
  end;
  finally
    s.Free;
  end;
  readln;

end.

[Klaus01]

Delphi-Quellcode:

program delupientry;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, StrUtils;

var
  upi: TextFile;
  filepath: String = 'C:\upm.his';
  line: String;
  s: TStringList;
  i: Integer; 


  { TODO -oUser -cConsole Main : Hier Code einfügen }

begin

  s := TStringList.Create;

  if FileExists(filepath) then
  begin
  {  AssignFile(upi, filepath);
    Reset(upi);
    while not Eof(upi) do
    begin
      ReadLn(upi, line);
      s.Add(line);
    end;
    CloseFile(upi);}
    s.loadFromFile(filepath);
    writeln('<böld>');

    for i:=0 to s.count -1 do
      writeln(s[i]);

    writeln('</böld>');
  end;
  readln;
  s.free // siehe Beitrag unten, habe ich vergessen, man wird halt auch älter

end.

[taaktaak]

... und vor das Programmende vielleicht noch ein bescheidenes

Delphi-Quellcode:

s.Free

[DeddyH]

Hab ich doch.

[edit] :oops: habe den Post von Klaus übersehen [/edit]

[cherry]

Ok leute heut ist ech nicht mein Tag...

Als ich diverses ausprobiert habe, habe ich wohl mir ReSet() den Dateiinhalt gelöscht. Mein Problem war nur, dass ich die StringList nicht instanziert habe!!!

Vielen Dank euch allen!
Und sorry... :oops: :oops: :oops: