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




Вниз

Текстовик 


kay   (2002-01-30 11:56) [0]

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



pasha_golub   (2002-01-30 12:01) [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) [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;




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




Наверх





Память: 0.71 MB
Время: 0.013 c
1-42805           Анатолий              2002-02-01 07:11  2002.02.14  
SaveDialog


3-42674           KOSTAY                2002-01-21 17:43  2002.02.14  
Что это за файлы *.px, *.mb, *.xg_, *.yg_, *.mbl?


3-42698           ТеньЛуны              2002-01-22 17:01  2002.02.14  
Microsoft Transaction Server&Borland AppServer


1-42762           _SnAke_               2002-01-31 11:57  2002.02.14  
Отображение главной формы


4-42904           Евгений               2001-10-21 16:49  2002.02.14  
Как создать свой Desktop?