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.
__________________
В любом из нас спит гений. И с каждым днем все крепче.