Курсовой проект групп 3341 и 3382 / j48 / Debugger

unit Debugger;

interface

uses
Classes,
SysUtils;

procedure write(fileName: String; text: String);

procedure writeLn(fileName: String; text: String);

implementation

procedure write(fileName: String; text: String);
var
Stream: TStream;
begin
Stream := TFileStream.Create(fileName, fmOpenWrite);
Stream.Write(PChar(text)^, Length(text));
Stream.Free;
end;

procedure writeLn(fileName: String; text: String);
var
Stream: TStream;
begin
text := text + #13#10;
Stream := TFileStream.Create(fileName, fmOpenReadWrite);
Stream.Write(PChar(text)^, Length(text));
Stream.Free;
end;
end.