ایجاد فایل

[omidan321]

سلام به همگی
من میخام بر اساس یه ادیت تکستی یه مسیری قابل تغییر بدم که کاربر بتونه باهاش مسیر دلخواهی بده
هدف من ایجاد یک فایل از نوع txt است توی انتهای مسیری که کاربر میده یه فایل تکت هست قطعه کدی که بتونه این فایل رو ایجاد کنه کسی بلده ؟

[بهروز عباسی]

درود به شما
با این توابع به راحتی می تونی کارت رو انجام بدی.
// Create a new text file and write some text into it

procedure NewTxt;
var
f: Textfile;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
ReWrite(f); {Create a new file named ek.txt}
Writeln(f, 'You have written text into a .txt file');
Closefile(f); {Closes file F}
end;

// Open existing text file and append some text
procedure OpenTxt;
var
F: Textfile;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
Append(f); {Opens the file for editing}
Writeln(f, 'You have written text into a .txt file');
Closefile(f); {Closes file F}
end;

// Open existing text file and show first line
procedure ReadTxt;
var
F: Textfile;
str: string;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
Reset(f); {Opens the file for reading}
Readln(f, str);
ShowMessage('1. line of textfile:' + str);
Closefile(f); {Closes file F}
end;

موفق باشید.

[Felony]

درود به شما
با این توابع به راحتی می تونی کارت رو انجام بدی.
// Create a new text file and write some text into it

procedure NewTxt;
var
f: Textfile;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
ReWrite(f); {Create a new file named ek.txt}
Writeln(f, 'You have written text into a .txt file');
Closefile(f); {Closes file F}
end;

// Open existing text file and append some text
procedure OpenTxt;
var
F: Textfile;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
Append(f); {Opens the file for editing}
Writeln(f, 'You have written text into a .txt file');
Closefile(f); {Closes file F}
end;

// Open existing text file and show first line
procedure ReadTxt;
var
F: Textfile;
str: string;
begin
AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
Reset(f); {Opens the file for reading}
Readln(f, str);
ShowMessage('1. line of textfile:' + str);
Closefile(f); {Closes file F}
end;

موفق باشید.
اون توبع AssignFile و ... مربوط به مرحوم Pascal هستند ، به هیچ عنوان از اون کدها در ویندوز اون هم نسخه های جدید که UAC و Access Token ها اضافه شده استفاده نکنید ، در خیلی از موارد اون کدها دسترسی مورد نیاز برای نوشتن در مسیرهای سیستمی و ... رو ندارن .

به جای اونها باید از StringList یا Stream ها برای دیتاهای مختلف استفاده کنید .