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

[kl45gp]

Как мне вытащить из txt файла его содержимое???? плизззззз

У меня получилось вытащить только одну строчку вот:

procedure TForm1.loading_map();
var
FileMap:Textfile;
S:string;
begin//1
AssignFile(FileMap,'./maps/map_go.txt');
Reset(FileMap);
Read(FileMap,S);
label1.Caption:=S;
end;//1

заранее Спасибо!

[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

[kl45gp]

Спасибо! В memo получилось! но вот в label никак! покажи пожалуйста такой же пример с label и если можешь объясни для чего нужны эти команды: repeat, until eof(filemap), closefile(filemap).

[AidarBik]

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

Спасибо! В memo получилось! но вот в label никак! покажи пожалуйста такой же пример с label и если можешь объясни для чего нужны эти команды: repeat, until eof(filemap), closefile(filemap).

В Label ты текст и не поместишь, потому что в тексте не одна строка(TStrings), а в Label можно поместить только одну (String).
repeat
<оператор>
until <условие>
Это оператор цикла. <оператор> будет выполняться до тех пор пока не будет выполнено <условие>.
Eof() - конец файла.
CloseFile() - закрытие файла.

[kl45gp]

О Г Р О М Н О Е СПАСИБО! буду знать!

если можно, то ещё вопорс...
А если мне надо вывести только например пятую строку, тогда как?

[Jeni]

Если нужно вывести строку из Memo, то
Label.Caption := Memo.Lines[4]; // Отсчет начинается с нуля!

А если пятую строку из файла, то нужно завести переменную-счетчик, увеличивать ее на 1 при чтении каждой строки и if <счетчик> = 5 then ...

[kl45gp]

ясно! спасибо!

[zetrix]

В Label ты текст и не поместишь

да ну...
procedure TForm1.loading_map();
var
FileMap:Textfile;
S:string;
begin//1
AssignFile(FileMap,'./maps/map_go.txt');
Reset(FileMap);
repeat
Readln(FileMap,S);
label1.caption:=label1.caption+S+#1 0#13; //вот и всё
until eof(filemap);
closefile(filemap);
end;

//внизу Трофимов Александр правильно заметил, что изначально файл может быть пуст. Вместо цикла repeat лучше использовать While.

[Трофимов Александр]

procedure TForm1.loading_map();
var
FileMap:Textfile;
S:string;
begin//1
{$I-}
AssignFile(FileMap,'./maps/map_go.txt');
Reset(FileMap);
{$I+}
If IOResult=0 then //файл изначально может отсутствовать
begin
repeat
if not SeekEof(fileMap) do // файл изначально может быть пустым
begin
Readln(FileMap,S);
label1.caption:=label1.caption+S+#1 0#13; //вот и всё
end;
until eof(filemap);
closefile(filemap);
end;
end;

[kl45gp]

Спасибо В С Е М!