[ALexandr555]

Код:

for i:=А to Б do
 for a:=1 to I do  readln(Tanek,html);
end
ShowMessage(html);

нужно из файла прочесть строки от А до Б, так не работает, есть варианты?

[v1s2222]

Самый легкий вариант - загрузить все в TStringList.

Код:

var
  s: TStringList;
  i: integer;
  A, B: Integer;
begin
  s:=TStringList.Create;
  S.LoadFromFile('file.txt');
  A := Pos('А', S.Text);
  B := Pos('Б', S.Text);
  for i:=A to B do
...
  S.Free;
end;

[ALexandr555]

нет там 12мб так что не вариант
ну так

Код:

for a:=1 to I do  readln(Tanek,html);

же можно прочитать строку I неужели нельзя никак сделать и чтобы от А до Б

[v1s2222]

Не как если это текстовый файл. Надо прочитать весь файл, а потом уже выдирать то, что тебе надо. Или еще вариант: читать все строки подряд, не сохраняя их не куда (просто readln), пока не встретишь "А". Как встретил - начинать читать дальше, только записывать все в переменную. И только встречается символ "Б" - останавливаешь цикл.

[M.A.D.M.A.N.]

Загрузить в стринг лист, сделать сортировку, а дальше как в ответе выше.

[ALexandr555]

v1s2222 можете привести собственно пример

читать все строки подряд, не сохраняя их не куда (просто readln), пока не встретишь "А". Как встретил - начинать читать дальше, только записывать все в переменную. И только встречается символ "Б" - останавливаешь цикл.

[ALexandr555]

M.A.D.M.A.N. не вариант, жрет +24мб памяти если грузить в стринг лист

[lmikle]

Читай построчно через textFile, когда появится что-то отличное от A и Б - выбрасывай:

Код:

var
  F : TextFile;
  L : TStringList;
  S : String;
begin
  L := TStringList.Create;
  Try
    AssignFile(F,'c:\myfile.txt');
    Reset(F);
    While Not EOF(F) Do
      Begin
        ReadLn(F,S);
        If S <> '' Then
          If S[1] In ['А','Б','а','б'] Then // Заглавные и нет.
            L.Add(S)
      End;
   CloseFile(F);
  Finally
    L.Free;
  End;
end;

Как-то так.

[v1s2222]

Код:

var
  i: integer;
  s, buf: string;
  b: Boolean;
label x;
begin
b := false;
s:='';
... (assign, reset и т.д.)
while(not(EOF(F)) do begin
  ReadLn(F, buf);
  for i:=1 to length(buf) do begin
    if(buf[i] = 'А') then
      b:=true;
    if(b) then
      S:=S+buf[i];
    if(buf[i] = 'Б') then
      goto x;
  end;
end;
x:
  showmessage(s);

Есть ошибки. Это просто пример для понимания, читаем пока не конец файла строки, и бегаем циклами по каждой из прочитанных строк. Если встречается буква "А", то начинаем все записывать в переменную, если "Б" - переходим на метку.

[ALexandr555]

не так поняли А и Б это номера строк

[v1s2222]

Ну значит не так объяснили. Если использовать типизированные файлы - то функция seek переместит вас куда нужно.
http://www.delphibasics.ru/Seek.php

[ALexandr555]

тогда файл txt как объявить
Tanek: File of ???;

[v1s2222]

Код:

F: TextFile;

[ALexandr555]

не, тогда Seek(Tanek,3); не работает

[v1s2222]

Значит seek для типизированных файлов.
Тогда например так:

Код:

  F: File of Integer;

Вообще стандартные функции по забывал