Как загрузить .txt?

[TwiX]

Как загрузить .txt из файла?

[uberchel]

по конкретней пожалуйста. надо определённый текст загрузить из файла или что ?

[Mixasik]

Во что загрузить? Например в TMemo есть метод LoadFromFile(FileName) который загрзит все данный в мемо для работы с текстовым файлом используются команды

AssignFile(F, FileName); // F - файловая перемнная типа TEXTFILE
// FileName - имя физического файла с которым связана переменная
Reset(F); // открыть существующий файл для чтения
Readln(F, st) - считать строку из файл F в переменную St типа string
CloseFile(F) - закрыть файл
для считывания всех данных используется структура 
while not eof(F) do begin
Readln(F,St);
здесь действия сто считанной строкой
End;

[TwiX]

По строчно я на форуменашёл уже =) А целиком нельзя?

[Mixasik]

как вариант грузит в мемо и работать построчно - вы желаете в одну строку?
а если так

while not eof(F) do begin
Readln(F,St);
Text := Text + st;
end;

Или есть такой класс TStringList - массив строк упрощенно там есть метод LoadFromFile(FileName) - каждая строка из файла загрузится отдельно как элемент класса(массива) TStringList

[betirsolt]

rocedure TForm3.N3Click(Sender: TObject);
begin
if OpenDialog1.execute then
with memo1 do begin
font.name:='MS Sans Serif';
Font.Charset:= RUSSIAN_CHARSET;
Lines.LoadFromFile(opendialog1.File Name);

end;



end;

[DomiNick]

Можно загружать в переменную типа TStringList:

Var List: TStringList; // объявляете переменную...
...
List:=TStringList.Create; // перед началом работы нужно создать переменную
...
List.LoadFromFile('C:\text.txt'); // так можно загрузить в переменную текст из файла *.txt

// List.Text - с этим можно работать как со строкой содержащей все символы из текста (подряд)... например:
Label1.Caption:=List.Text;

// List.Count - количество строк в тексте (функция IntToStr() переводит целое число в строку)...  например:
Label2.Caption:=IntToStr(List.Count);

// List.Strings[i] - доступ к одной из строк... например к первой (не забывайте, что нумерация строк идёт с нуля)... например:
Label3.Caption:=List.Strings[1];

List.SaveToFile('C:\text.txt'); // так можно сохранить текст из переменной в файл
...
List.Free; // не забывайте уничтожать переменную, когда она уже не нужна

Возможно будет интересна недавняя тема про текстовый файл: > Ссылка < ...