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

[SERG1980]

Сообщение от Пепел Феникса

речь о 500 тысячах строк, и еще не известно какого размера сами строки.

Да и такой создал загрузил и удалил, всё работает

[mss]

Делается это до смешного просто двумя экземплярами TTextFileStream и кодом в пол-дюжины строк

[SERG1980]

Сообщение от mss

Делается это до смешного просто двумя экземплярами TTextFileStream и кодом в пол-дюжины строк

У меня почему то делфи ругается на TTextFileStream, говорит что не знает такого типа.
делфи 2007, может модуль какой нибудь подключить надо?

[Serge_Bliznykov]

то делфи ругается на TTextFileStream, говорит что не знает такого типа.

Delphi 2006 (Borland® Delphi® for Microsoft® Windows™ Version 10.0.2558.35231) - аналогично...

Добавлено
судя по всему, речь идёт о самописной надстройке (наследнике) от TFileStream
вот ссылка на форум, где предлагается такой класс...

[mss]

unit TextFileStream;

interface

uses Classes;

type

  TTextFileStream = class(TFileStream)
  public
    function Eof: Boolean;
    function ReadLn: string;
    procedure WriteString(const s: string);
    procedure WriteLn(const s: string); overload;
    procedure WriteLn; overload;
  end;

const

  LineEnd = #13#10;

implementation

function TTextFileStream.Eof: Boolean;
begin
  result := (Position >= Size);
end;

function TTextFileStream.ReadLn: string;
const
  BlkSize = 128;
var
  c: char;
  i: Integer;
begin
  SetLength(Result, BlkSize);
  i := 0;
  while not Eof do begin
    Read(c, SizeOf(c));
    if c = #13 then begin
      Read(c, SizeOf(c));
      if c <> #10 then begin
        Seek(SizeOf(c), soFromCurrent);
      end;
      break;
    end;
    if c = #10 then begin
      break;
    end;
    Inc(i);
    if i > BlkSize then
      SetLength(Result, Length(Result) + BlkSize);
    Result[i] := c;
  end;
  SetLength(Result, i);
end;

procedure TTextFileStream.WriteString(const s: string);
var
  i: integer;
begin
  for i := 1 to Length(s) do begin
    Write(s[i], SizeOf(s[i]));
  end;
end;

procedure TTextFileStream.WriteLn;
begin
  Write(LineEnd, Length(LineEnd));
end;

procedure TTextFileStream.WriteLn(const s: string);
begin
  WriteString(s);
  WriteLn;
end;

end.

Начиная с D2009, вестимо, String следует явно заменить на AnsiString

[maloy_ya]

Сообщение от SERG1980

Да и такой создал загрузил и удалил, всё работает

кстатии говоря может беда в том что я с таким большим списком работаю бонально вот так:

stroka := spisok.Strings[0];
spisok.Delete (0);

тоесть вот таким нехитрым способом я считываю по строке и обрабатываю её! может по этому выскакивает ошибка??

[Пепел Феникса]

а зачем удалять вам их?
(хотя на скорость сильно не влияет)
вы хоть проверяете на наличие элементов в списке?

[maloy_ya]

удалять дабы не обробатывать обработанные да и цикл организововать не нужно а если не удалять то я постоянно одину и ту же строку буду обрабатывать!
и конечноже проверяю!!!

if spisok.count<>0 then 
 begin
  stroka := spisok.Strings[0];
  spisok.Delete (0);
 end
else ....