Future
یک شنبه 06 آذر 1384, 15:40 عصر
سلام دوستان
من یک فایل با پسوند txt دارم . می خوام که یک رشته را داخل آن جستجو کنه اگه بود پاکش کند یا بجای آن ********** بگذاره در ضمن من نمی خواهم فایل را در memo یا مشابه آن وارد کنم
کد زیر را نوشتم ولی کار نمی کنه
var
myfile : TextFile;
name , name1 : String;
Leng :Cardinal;
UserName :PChar;
CamuterName :PChar;
found :Boolean;
begin
AssignFile(myFile, 'D:\Users.txt');
Reset(myfile);
repeat
Readln(myfile,name1);
if name1 = Name then name1 := 'XXXXXXXXXXXXXXXX'
until Eof(myfile);
CloseFile(myfile);
من یک فایل با پسوند txt دارم . می خوام که یک رشته را داخل آن جستجو کنه اگه بود پاکش کند یا بجای آن ********** بگذاره در ضمن من نمی خواهم فایل را در memo یا مشابه آن وارد کنم
کد زیر را نوشتم ولی کار نمی کنه
var
myfile : TextFile;
name , name1 : String;
Leng :Cardinal;
UserName :PChar;
CamuterName :PChar;
found :Boolean;
begin
AssignFile(myFile, 'D:\Users.txt');
Reset(myfile);
repeat
Readln(myfile,name1);
if name1 = Name then name1 := 'XXXXXXXXXXXXXXXX'
until Eof(myfile);
CloseFile(myfile);