текст в файл

[supernewbie]

Нашел только как из мемо в файл записывать.

А как скажем записать строки из массива? или просто стринг в файл?

var
m: TMemo;
frm:TForm;

procedure Init; //Вызывается при включении скрипта
begin
  frm := TForm.Create(nil);
  frm.Caption := '1';
  frm.BorderStyle := bsSizeable;
  frm.Position := poDesigned ;
  frm.Width:=400;
  frm.Height:=600;
  m:=TMemo.Create(frm);
  m.parent:=frm;
  m.align:=alClient;
  m.ReadOnly:=true;
  m.ScrollBars:=ssBoth;  
  m.Lines.Add('2');
  m.Lines.Add('3');

end;

procedure SaveToFile(prefix:string);
var name:string;
begin
     name := prefix+'.txt';
     m.Lines.SaveToFile(name);
end;


procedure Free; //Вызывается при выключении скрипта
begin
SaveToFile('4');
end;


//основная часть скрипта
begin

end.

[J-Fobos]

var
Stream:TFileStream;
s:string;

begin
try //пытаемся создать файл, но если такой существует то открываем его
Stream := TFileStream.Create('c:\test.dat', fmOpenReadWrite);
except
Stream := TFileStream.Create('c:\test.dat', fmCreate);
end;
Stream.Write(s,SizeOf(s));//запись в файл чего угодно
Stream.Read(s,SizeOf(s));//чтение с файла чего угодно
Stream.Free;//закрытие файла
end.

Это универсальный вариант, в файл можно будет писать все что угодно. Но он сложный - требует много внимания
Для простоты можно использовать стандартную возможность класса TSringList.SaveToFile();

[supernewbie]

че-то ошибку пишет на SizeOf

[Breadfan]

чето интуитивно чуйствую что не Sizeof (просто это в делфи так), а length(фс)

[supernewbie]

Ыы

Добавлено через 4 минуты
а как ему сказать чтобы он вторую строку читал?

Добавлено через 6 минут
как ему сказать чтобы он вписал в файл

1
2

[alexteam]

Stream.Write(s,SizeOf(s));//запись в файл чего угодно
Stream.Read(s,SizeOf(s));//чтение с файла чего угодно 
 

фигу.
тут либо
1. пишем размер строки
2. пишем саму строку.

и
1. читаем размер
2. выделяем строке нужное кол-во памяти
3. читаем эту строку.

либо
s:string[размер];

[supernewbie]

пример пож

[alexteam]

шо примерно ?
если тебе тупо строки надо туда засовывать - tstringlist
и не мучай людей тут.

[J-Fobos]

Я на коленке писал На работе нету ни пакетхака, ни делфи, надо бы уже и там их поставить Спасибо alexteam за поправку


supernewbie, пример мой, обязательно с учетом замечаний alexteam и Breadfan. А чтоб перейти на другую строку надо вписать #10+#13. А еще, если просто цифры писать, то даже не надо заморачиватся с размером переменной string, а указать как тип integer.

[Breadfan]

Ну у меня когда-то работало такое чудо мысли:
Оффтоп

var
  MyFile: TStringList;
  i:integer;
  name, key:string;
  Ready, Ready1:boolean;
const
  MyFileName = 'c:\tst\myfile.txt';
procedure Init; //Вызывается при включении скрипта
begin
 i:=0;
 MyFile:=TStringList.Create;
 try
   MyFile.LoadFromFile(MyFileName);
 except// если ошибка, не обращаем внимание
 end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
  if MyFile<>nil then
  begin
    MyFile.SaveToFile(MyFileName); // сохраняем при завершении работы скрипта.
    MyFile.Free; // освобождаем память
  end;
end;
// чтение значения из переменной
function GetValue(ValName: string): string;
begin
  result:=MyFile.Values[ValName];
end;
// запись переменной
procedure SetValue(ValName: string; Value: string);
begin
  MyFile.Values[ValName]:=Value;
end;

 begin
   
    SetValue(name,((key))); //name - имя переменной (первое поле), (key) - значение
//выглядеть в фале строка будет так (при name='Var'; key:='123';
//
// Var=123
//
    end;
    
 end.

- но: не создает файл при его отсутсвии (лень было, да и незачем), сохрание данных в файл происходит при ВЫКЛЮЧЕНИИ скрипта. Скрипт использовался для чтения каких-то там байт из пакета с сервера при входе в игру, ответа клиента (2 пакета) и сохранения этих данных в файл.