Indlæse en fil i en variabel

procedure FaesEnFil;
var
VariabelDerSkalIndeholdeFil: TStrings;
begin
VariabelDerSkalIndeholdeFil.LoadFromFile("filnavn.txt");
//indholdet af filen ligger nu i VariabelDerSkalIndeholdeFil
end;

du kan også lave en function, der returnerer det i en string:

function FaesEnFil(Filnavn: String): String;
var
Buffer: TStrings;
begin
Buffer.LoadFromFile("filnavn.txt");
FaesEnFil := Buffer.Text;
end;


[Redigeret d. 03/03-04 16:02:24 af Jesper Kristensen]

Du kan bruke dette til å legge en tekstfil til en variabel, og vise det i et konsollvindu:

uses
  SysUtils, Classes;

var
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  StrList.LoadFromFile('Project1.dpr');
  Writeln(StrList.Text);
  Readln;
  StrList.Free;

Du kan også bruke dette til å vise en tekstfil en et konsollvindu:

var
  F: TextFile;
  S: String;
begin
  AssignFile(F, 'Project1.dpr');
  Reset(F);
  while not Eof(F) do
  begin
    Readln(F, S);
    Writeln(S);
  end;
  CloseFile(F);
  Readln;

Mvh
DiZpel

VarTStrings.LoadFromFile('Filnavn.txt');

VarTStrings.LoadFromFile('Filnavn.txt');

hvordan bruger jeg lige det der?