Delphi-Quellcode:
procedure TLogFile.AddLine(Line: string);
var
F: TextFile;
Zeile: String;
begin
FileMode := fmOpenReadWrite;
AssignFile(F, FFileName);
try
Append(F);
except
Rewrite(F);
end;
Zeile := FormatDateTime('c.zzz - ', Now)+Line;
WriteLn(F, Zeile);
CloseFile(F);
end;
Daraus sollst du machen:
Delphi-Quellcode:
procedure TLogFile.AddLine(Line: string);
var
sl: TStringList;
begin
sl := TStringList.Create;
...;
...;
...;
end;
Die anderen programme, die die Klasse benutzen bekommen doch gar nicht mit, dass sich innerhalb der Methode was am Quellcode geändert hat.