запись в файл

[grater83]

как записать в текстовый файл строку больше 255 символов

[Necro]

попробуй читать и писать ее кусками

[Serge_Bliznykov]

на Delphi ???!!!! а в чём проблема то?!

var s : AnsiString; 
(*если не баловались опциями компилятора, 
то это то же самое, что и 
var s : String; 
- почитайте в хелпе Дельфи про типы ShortString, AnsiString и String *)
 f : TextFile;
 i : Integer;
begin
   AssignFile(f,'TestLong.txt');
   Rewrite(f);
   {сделаем строку из 100000 тысяч звёздочек!}
   s := '';
   for i:=1 to 100000 do
     s:=s + '*';
   Writeln(f,s);
   CloseFile(f);
end;

[Marsel737]

procedure TForm1.Button1Click(Sender: TObject);
var 
  s : AnsiString;
  f : TextFile;
begin
   AssignFile(f,'TestLong.txt');
   Rewrite(f);
   {строка из 1000 символов}
   s := '0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789'
        +'0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789';
   Writeln(f,s);
   CloseFile(f);
end;

[grater83]

"*если не баловались опциями компилятора"

вот именно проблема в этом опциями небаловался ,но делфи ругается на строку ,что в ней больше 255 символов как исправить это.

[postal2]

Вообще всё должно идеально работать, так как

Type Maximum length Memory required Used for
ShortString 255 characters 2 to 256 bytes backward compatibility
AnsiString ~2^31 characters 4 bytes to 2GB 8-bit (ANSI) characters, DBCS ANSI, MBCS ANSI, etc.
WideString ~2^30 characters 4 bytes to 2GB Unicode characters; multi-user servers and multi-language applications


Попробуй поставить не ansistring, а просто string (что тоже самое) или widestring

Где конкретно ругается?

[Alex Cones]

Может попробуете показать нам свой код? Может проблема не столько в записи, сколько в том, как вы задаёте строку.

[Serge_Bliznykov]

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

вот именно проблема в этом опциями небаловался ,но делфи ругается на строку ,что в ней больше 255 символов как исправить это.

Хелп, значит, читать не хотим.. ;(
ну да ладно..
за то, как Дельфийский компилятор определяет переменную типа стринг отвечает опция {$H+}

creates a variable S that holds a string. In the default {$H+} state, the compiler interprets string (when it appears without a bracketed number after it) as AnsiString. Use the {$H–} directive to turn string into ShortString.

либо зайдите меню - "Project" - "Options" - закладка "Complier" и поставьте галочку напротив:
[ ] Huge strings


____________________________
добавлено

Alex Cones, согласен. Возможно (и скорее всего!), что проблема в том, где и как эта строка описана и/или присваивается/используется/передаётся!!

[grater83]

все как всегда ни разу неделал большую стоку и вот результат
AssignFile(а, 'c:.......');
Rewrite(а);
writeln(f,'и 1000 символов');
CloseFile(f)
ругается на string literals may have at most 255 elements

[grater83]

"Project" - "Options" - закладка "Complier" и поставьте галочку напротив:
[ ] Huge strings

стоит галочка