Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Вниз

Как перейти на споледнюю строчку текстового файла и прочитать ее.   Найти похожие ветки 

← →
Третейский Судья   (2002-03-06 16:43) [7]

Собственно, просьба была без изспользования While ...
А посему вариант :
Functinon LastString(f: textfile):string;
var
StringToFind : string;
Begin
...
Repeat
Readln(f,StringToFind);
Result := StringToFind
Until EOF(f)
End;
Вроде как проходит

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c