| Kaf Dağı | 27 Mart 2015 15:35 |
string'i txt dosyasına kaydetme
Kod:
procedure SaveStr(Source,FileName:AnsiString);
var
F:File;
SaveMode:Integer;
begin
AssignFile(F,FileName);
SaveMode:=FileMode;
FileMode:=1;
try
Rewrite(F,1);
try
BlockWrite(F,Source[1],Length(Source));
finally
CloseFile(F);
end;
except
on EInOutError do raise Exception.Create('Yazma Hatası '+Filename);
end;
FileMode:=SaveMode;
end;
(* KULLANIMI *)
// Örnek 1:
SaveStr(Edit1.Text,'c:veri.txt');
// Örnek 2:
var
S: String;
begin
S := 'Bu bir örnektir...';
SaveStr(S,'c:veri.txt');
end;
| 