|
|
Регистрация | << Правила форума >> | 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
|
|||
|
|||
Кто о чем ))
|