Delphi Pascal - как записать данные в файл размером более 2 ГБ?

Я сделал инструмент в Delphi, чтобы создать радужный стол. Это было прекрасно, пока файл не вырос до 3,1 ГБ. Я закрыл свою программу. Затем я открыл его снова, и он сработает при выполнении этого кода:

Assign(RainbowFile,'Rainbow_table.txt'); {assign a text file}
Append(RainbowFile);

Delphi показывает ошибку "повышенный класс проверки EInOutError с сообщением" Ошибка ввода-вывода 131 ". Мой вопрос: как добавить данные в существующий файл размером более 2 ГБ. // Устаревшее Следующий вопрос: У меня есть код:

   Content_to_file := (#13+#10+Start_string+':'+hexstr(GTA_San_Andreas_CRC32(Start_string), 8));
   RainbowFile_handle.WriteBuffer( Content_to_file[1], Length(Content_to_file)*SizeOf(Char));

Как избавиться от переменной Content_to_file. Я хочу поставить его прямо в WriteBuffer, если это возможно.

EDIT:

TFileStream работает с файлами размером более 2 ГБ. Я протестировал его сейчас. Однако можно ли написать так:

RainbowFile_handle.WriteBuffer( Start_string[1]+':', 

Я хочу передать аргумент переменной. Или я определенно передаю первую переменную char?

ИЗМЕНИТЬ 2:

В настоящее время я сделал это так:

    Content_to_file := (#13+#10+Start_string+':'+hexstr(GTA_San_Andreas_CRC32(Start_string), 8));
    RainbowFile_handle.WriteBuffer( Content_to_file[1], Length(Content_to_file)*SizeOf(Char));

Можно ли сделать это без этой переменной?

Ответы

Stream.Seek(0, soEnd);

procedure StreamWriteLine(Stream: TFileStream; Text: string);
begin
  Text := Text + sLineBreak;
  Stream.WriteBuffer(Text[1], Length(Text)*SizeOf(Char));
end;