Файлы Files

[Vizit0r]

самая жесть - это когда человек в цикле создает стринглисты, работает с ними - и нигде их не освобождает. а потом пишет мне что-то типа "стелс сильно течет, исправь плиииз"
вот тогда хочется ругаться, сильно.

[shinma]

Учту)

[shinma]

мне выдает оошибку [Error] (Kazli.sc at 19:8): Unknown identifier 'LOADFROMFILE'
что я делаю не так?

Code: Select all

program kazli; 
const
Kazli = 'D:\pk.txt';
var
fl:TFileStream;
i,mode:word;

begin
fl.Free; 
  if (FileExists(Kazli)) then
    begin
    mode := fmOpenReadWrite or fmShareDenyWrite;
    fl.LoadFromFile(Kazli);
    end
  else
  begin
  mode := fmCreate;
  fl := TFileStream.Create(Kazli, mode); // пробуем открыть
  end; 
   for i:= 1 to 10 do
  List.add( inttostr(i)  );
  List.SaveToFile('Kazli'); 
  
  fl.Free; 
 
//function DateTimeToStr(D: TDateTime): String; // Конвертирует "дату + время" в строку   
 
end.

[Alex]

думаю надо созать инстанс TFileStream в переменной f1

[shinma]

я не умею

[shinma]

научи плиз

[Vizit0r]

1) зачем ты делаешь в самом начале

Code: Select all

fl.Free;

?
освобождать несозданный обьект - это классно. ошибок давно не получал?

2) с чего ты вообще взял, что у класса TFileStream есть метод LoadFromFile?
его там нет и никогда небыло.

[shinma]

Для меня это все темный лес пока хоть один пример не покажете.

[Vizit0r]

http://www.google.com.ua/search?q=tfilestream
мало примеров?

[shinma]

Program New;
var
Stream: TFileStream;
SL:TStringList;
LogString:string;
begin
if FileExists('test.txt') then
Stream := TFileStream.Create('test.txt', fmOpenReadWrite)
else
Stream := TFileStream.Create('test.txt', fmCreate);
Stream.Free;
with TStringList.Create do
try
LoadFromFile('test.txt');
Add('МОЯ БОЛЬШАЯ СТРОКА');
SaveToFile('test.txt');
finally
free;
end
end.