var
Stream:TFileStream;
s:string;
begintry//пытаемся создать файл, но если такой существует то открываем его
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();
__________________
В любом из нас спит гений. И с каждым днем все крепче.
чето интуитивно чуйствую что не Sizeof (просто это в делфи так), а length(фс)
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 25.08.2010 в 21:30.
За это сообщение Breadfan нажился 2 спасибками от:
Я на коленке писал На работе нету ни пакетхака, ни делфи, надо бы уже и там их поставить Спасибо alexteam за поправку
supernewbie, пример мой, обязательно с учетом замечаний alexteam и Breadfan. А чтоб перейти на другую строку надо вписать #10+#13. А еще, если просто цифры писать, то даже не надо заморачиватся с размером переменной string, а указать как тип integer.
__________________
В любом из нас спит гений. И с каждым днем все крепче.
Ну у меня когда-то работало такое чудо мысли: Оффтоп
delphi Код:
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; //Вызывается при выключении скриптаbeginif MyFile<>nil thenbegin
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 пакета) и сохранения этих данных в файл.
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 25.08.2010 в 22:37.