/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/FilesOperations.pas
39 строк
780 B
Mikhalkovich Stanislav
fix #2058
02 авг 2019, 10:17
02 авг 2019, 10:17
66b7aa4
Код
Авторство
О чём код?
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt) // This code is distributed under the GNU LGPL (for details please see \doc\license.txt) unit FilesOperations; interface function ReadFileToEnd(name: string): string; procedure WriteStringToFile(name: string; s: string); implementation function ReadFileToEnd(name: string): string; var f: text; begin AssignFile(f,name); Reset(f); var sb := new System.Text.StringBuilder(); var s : string; while not eof(f) do begin readln(f,s); sb.AppendLine(s); end; ReadFileToEnd:=sb.ToString(); CloseFile(f);{} end; procedure WriteStringToFile(name: string; s:string); var f: text; begin AssignFile(f,name); Rewrite(f); Write(f,s); CloseFile(f);{} end; end.