procedure setcaption(filename: string);
var f: textfile;
str: string;
begin
assignfile(f, filename);
reset(f);
readln(f,str);
closefile(f);
caption := str;
end;
procedure saveedit(filename, txt: string);
var f: textfile;
begin
assignfile(f, filename);
rewrite(f);
writeln(f,str);
closefile(f);
end;
Jeppe Johansen
Jeppesoftware@hotmail.com
Rettelse: Der skal stå
procedure saveedit(filename, txt: string);
var f: textfile;
begin
assignfile(f, filename);
rewrite(f);
writeln(f,txt);
closefile(f);
end;
Mvh...
Allan Nørgaard Kristensen