Hej..jag har problem med att skriva till fil..=(


procedure terminal.NewFile(filename,content:string);
var f:textfile;
begin
IF SysUtils.FileExists(FileName) then
begin
assignFile(f,filename);
fileopen(filename,fmOpenWrite);
write(f,'daga')
end
else
begin
FileCreate(filename);
write(f,'dada');
end;
end;

får felet:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 103'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

på raderna write();

fattar inte varför!!
tycker detta borde vara rätt lätt men nää...=(

hejsan...löste det nästan direkt efter att jag skrev inlägget och kollade lite i hjälpen igen...

gg := fileopen(filename,fmOpenWrite);
filewrite(gg,'dada',4);

blev lösningen...=)

aja...det här var ju inte löst..=( =( =(

just nu är koden:

procedure terminal.NewFile(filename,scontent:string);
var f:integer;
begin
IF SysUtils.FileExists(FileName) then
begin
f := fileopen(filename,fmOpenWrite);
filewrite(f,sContent,strlen(pchar(sContent)));
fileclose(f);
end
else
begin
FileCreate(filename);
f := fileopen(filename,fmOpenWrite);
filewrite(f,sContent,strlen(pchar(sContent)));
fileclose(f);
end;
end;

Men när jag skriver till filen så här:
terminal1.NewFile('test1.txt','testar'+#13+'dada');

blir det konstig text i filen...=/
texten: (+E <+E ¸üi

Varför?

Vet inte om du är ute efter något särskilt men prova koden nedan:

procedure NewFile(FileName, SContent: string);
var
f: TextFile;
begin
AssignFile(F, FileName);
Rewrite(F);
Write(F, SContent);
CloseFile(F);
end;

Hejsan...

JO det funkar lite bättre...
tror jag hade testat det också, och nu gick det plötsligt..=/
Men nu kommer ju inte radbrytningarna med...det blir bara två fyrkanter där jag vill göra radbrytning istället...

hur göra?

/bj

använd #13#10 för radbrytning.
'rad1'+#13#10+'rad2'

Ahh..tack...Jag testade med #13#12 =/

tack

nu måste den här problemet vara löst!!!

Hej Bj
Ganska praktiskt om du behöver radskifte är att göra så här.

implementation

{$R *.DFM}
Const NL = #13 + #10 ; //NewLine

ha det
Sven