| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Текстовик [D5, Win95/98]

kay ©   (2002-01-30 11:56:00) 

Народ! Помогите! Как из текстового файла, закинуть определенную строку в переменную, типа стринг? Функция, что-то типа (numeric), что ли.

---

pasha_golub   (2002-01-30 12:01:00) [1]

var
f:textfile;
s:string;
begin
AssignFile(f,FileName);
Reset(f);
while not eof(f) do
Readln(f,s);
end;

---

Dimka Maslov   (2002-01-30 12:01:00) [2]

function GetStringFromFile(FileName: string; LineNumber: Integer): string;
var
List: TStringList;
begin
List:=TStringList.Create;
try
List.LoadFromFile(FileName);
Result:=List[LineNumber-1];
finally
List.Free;
end;
end;

---

Наверх