![]() |
|
#1
|
|||
|
|||
![]() Ребята, как создать txt файл и одновременно добавить в него строки
Заранее спасибо |
#2
|
|||
|
|||
![]() Цитата:
Код:
var SL : TStringList; begin SL := TStringList.Create; Try SL.Add('Строка 1'); SL.Add('Строка 2'); SL.SaveToFile('c:\myfile.txt'); Finally SL.Free; End; |
#3
|
|||
|
|||
![]() Пасип! буду знать
![]() |
#4
|
||||
|
||||
![]() можно и так:
Код:
procedure TForm1.Button1Click(Sender: TObject); var myFile: TextFile; begin AssignFile(myFile, 'myfile.txt'); Rewrite(myFile); try Writeln(myFile, 'Строка 1'); Writeln(myFile, 'Строка 2'); finally CloseFile(myFile); end; end; |
#5
|
|||
|
|||
![]() А в чём отличие?
|
#6
|
|||
|
|||
![]() Отличие - в использованных методах.
Я использовал готовый класс, предоставляющий некоторый сервис, кроме продемонстрированого. Кроме того, в случае испоьзования такого класса можно разнести заполнение и собственно выгрузку. Karsh использовал файловые операции просто для формирования файла. |
#7
|
|||
|
|||
![]() Всё теперь ясно
|