![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#16
|
||||
|
||||
|
ну в файле то строки
|
|
#17
|
||||
|
||||
|
Код:
F: File of String[255]; // указываешь длину Либо F: File of PChar; //например |
|
#18
|
||||
|
||||
|
Код:
var myWord: String[255]; begin Seek(Tanek,3); Read(Tanek, myWord); Код:
[Error] Unit1.pas(3906): Incompatible types lmikle: Сколько раз говорить об оформлении? чтото типы не сходятся |
|
#19
|
|||
|
|||
|
Так бы и сказал, что А и Б это номера строк.
Код:
var
F : TextFile;
L : TStringList;
S : String;
C : Integer;
begin
C := 0;
L := TStringList.Create;
Try
AssignFile(F,'c:\myfile.txt');
Reset(F);
While Not EOF(F) Do
Begin
ReadLn(F,S);
Inc(C);
If (C >= A) And (C <= B)'
Then L.Add(S)
If C > B Then Break; // We don't neet to read file after B
End;
CloseFile(F);
Finally
L.Free;
End;
end; |
|
#20
|
|||
|
|||
|
Кто о чем ))
|