HELP! Как мне вытащить текст из файла?

[Alter]

Сообщение от mrandrey

смотри на сколько все просто:

procedure TForm1.loading_map();
var
FileMap:Textfile;
S:string;
begin//1
AssignFile(FileMap,'./maps/map_go.txt');
Reset(FileMap);
repeat
Readln(FileMap,S);
memo1.lines.add(S);
until eof(filemap);
closefile(filemap);
end;//1

Вот у тебя написно:
Repeat
..................
Until Eof(filemap);
Ты тут проверяешь конец файла после того как его прочитал 1 раз, а если файл пустой.

Вот поэтому я то и использую такую конструкцию:
While EOF( filemap ) Do
begin
{ что-то делаем с данными }
end;
Здесь я изначально проверяю файл на наличие конца.

[Квэнди]

Надеюсь вы вкурсе что
Until Eof(filemap);
и
While EOF( filemap )
вернут противоположенные результаты ?

[Alter]

Сообщение от Квэнди

Надеюсь вы вкурсе что
Until Eof(filemap);
и
While EOF( filemap )
вернут противоположенные результаты ?

Я случайно забыл написать Not.
Вот, исправлено:
While Not EOF( filemap ) Do
begin
{ что-то делаем с данными }
end;