خواندن اطالاعات از text فایل ؟

[mehran-a]

چطوری میشه اطلاعات ذخیره شده در تکس فایل را خواند برای نگهداشتن در یک متغییر
ممنون

[Naficy]

1- جلل خالق!
2- یک راه: استفاده از اشیای جریان

function GetFileContent(FileName: String): String;

var

  F: TStream;

begin

  F:=TFileStream.create(FileName, fmOpenRead);

  try

    SetString(Result, nil, FS.Size);

    F.Read(Result[1], FS.Size);

  finally

    F.Free;

  end;

end;

3-یک راه ساده:

  Memo1.Lines.LoadFromFile('C:\autoexec.bat');

همینطور می تونید یک شی از نوع TStringList بسازید و به جای عبارت Memo1.Lines قرار دهید!!!!!

[Hamid_PaK]

این هم نمونه دیگر شاید بدردتون بخوره :

procedure TForm1.Button1Click(Sender: TObject);

var

  i, z: Integer;

  f: TextFile;

  t: string;

  Data: array of string;

begin

  if OpenDialog1.Execute then

  begin

    //Read line by line in to the array data

    AssignFile(f, OpenDialog1.FileName);

    Reset(f);

    z := 0;

    SetLength(Data, 0);

    //Repeat for each line until end of file

    repeat

      Inc(z);

      readln(f, t);

      SetLength(Data, Length(Data) + Length(t));

      Data[z] := t;

    until EOF(f);



    SetLength(Data, Length(Data) + 3 * z);

    //Add to each line the line number

    for i := 1 to z do Data[i] := IntToStr(i) + ' ' + Data[i];

    SetLength(Data, Length(Data) + 2);

    //Add a carriage return and line feed

    Data[1] := Data[1] + #13 + #10;

    i       := Length(Data[5]);

    Data[5] := '';

    SetLength(Data, Length(Data) - i);

    //create a new textfile with the new data

    AssignFile(f, OpenDialog1.FileName + '2');

    ReWrite(f);

    //write all lines

    for i := 1 to z do writeln(f, Data[i]);

    //save file and close it

    CloseFile(f);

  end;

end;