Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 16.02.2011, 19:38
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

ну в файле то строки
Ответить с цитированием
  #17  
Старый 16.02.2011, 19:41
Аватар для v1s2222
v1s2222 v1s2222 вне форума
Продвинутый
 
Регистрация: 07.09.2010
Сообщения: 726
Репутация: 26711
По умолчанию

Код:
F: File of String[255]; // указываешь длину
Либо F: File of PChar; //например
__________________
Помогаю за Спасибо
Ответить с цитированием
  #18  
Старый 16.02.2011, 21:18
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

Код:
var
myWord: String[255];
begin
Seek(Tanek,3);
Read(Tanek, myWord);

Код:
[Error] Unit1.pas(3906): Incompatible types

lmikle: Сколько раз говорить об оформлении?

чтото типы не сходятся
Ответить с цитированием
  #19  
Старый 16.02.2011, 22:04
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,020
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Так бы и сказал, что А и Б это номера строк.

Код:
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  
Старый 16.02.2011, 22:52
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Кто о чем ))
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter