G
guangmin
Unregistered / Unconfirmed
GUEST, unregistred user!
A
alum
Unregistered / Unconfirmed
GUEST, unregistred user!
function delline(n : integer;filename:string):boolean;
var s : Tstrings;
begin
result := true;
s := Tstringlist.create;
try
s.loadfromfile(filename);
s.delete
;
s.savetofile(filename);
except
result := false;
s.free
exit;
end;
s.free;
end;
var s : Tstrings;
begin
result := true;
s := Tstringlist.create;
try
s.loadfromfile(filename);
s.delete
;s.savetofile(filename);
except
result := false;
s.free
exit;
end;
s.free;
end;
G
guangmin
Unregistered / Unconfirmed
GUEST, unregistred user!
要用java!11!
Y
YoYoYo
Unregistered / Unconfirmed
GUEST, unregistred user!
没有现成的函数。
Vector vec = new Vector();
BefferedReader() bf = new BufferedReader(new FileReader(filename));
String sTmp = bf.readLine();
int lineCounter = 0；
while (sTmp != null){
vec.addElement(sTmp);
sTmp = bf.readLine();
}
bf.close();
vec.removeElementAt;
PrintWriter() pw = new PrintWriter(new FileWriter(filename));
for(int i = 0;
i < vec.size();
i ++){
pw.println((String)vec.elementAt(i);
}
pw.flush();
pw.close();
Vector vec = new Vector();
BefferedReader() bf = new BufferedReader(new FileReader(filename));
String sTmp = bf.readLine();
int lineCounter = 0；
while (sTmp != null){
vec.addElement(sTmp);
sTmp = bf.readLine();
}
bf.close();
vec.removeElementAt
;PrintWriter() pw = new PrintWriter(new FileWriter(filename));
for(int i = 0;
i < vec.size();
i ++){
pw.println((String)vec.elementAt(i);
}
pw.flush();
pw.close();
T
Topside
Unregistered / Unconfirmed
GUEST, unregistred user!
感觉如果文件小的话，用第一位的方法简单、有效，如果比较大，则把第n行以外的都一行一行
地写进另一个文件中，再delete原来的文件，更改现在这个文件的name为原文件名。
浅见而已。
地写进另一个文件中，再delete原来的文件，更改现在这个文件的name为原文件名。
浅见而已。
W
wql
Unregistered / Unconfirmed
GUEST, unregistred user!
alum说的是对的，但是有一个概念是错的：
TStrings的行是从0开始的，所以要删除第N行，在TStringS中应该为N-1行，
应该为：
function delline(n : integer;filename:string):boolean;
var s : Tstrings;
begin
if (n>0) then
dec;//新加
result := true;
s := Tstringlist.create;
try
s.loadfromfile(filename);
s.delete;
s.savetofile(filename);
except
result := false;
s.free;
exit;
end;
s.free;
end;
TStrings的行是从0开始的，所以要删除第N行，在TStringS中应该为N-1行，
应该为：
function delline(n : integer;filename:string):boolean;
var s : Tstrings;
begin
if (n>0) then
dec
;//新加result := true;
s := Tstringlist.create;
try
s.loadfromfile(filename);
s.delete
;s.savetofile(filename);
except
result := false;
s.free;
exit;
end;
s.free;
end;
W
wql
Unregistered / Unconfirmed
GUEST, unregistred user!
alum说的是对的，但是有一个概念是错的：
TStrings的行是从0开始的，所以要删除第N行，在TStringS中应该为N-1行，
应该为：
function delline(n : integer;filename:string):boolean;
var s : Tstrings;
begin
if (n>0) then
dec;//新加
result := true;
s := Tstringlist.create;
try
s.loadfromfile(filename);
s.delete;
s.savetofile(filename);
except
result := false;
s.free;
exit;
end;
s.free;
end;
TStrings的行是从0开始的，所以要删除第N行，在TStringS中应该为N-1行，
应该为：
function delline(n : integer;filename:string):boolean;
var s : Tstrings;
begin
if (n>0) then
dec
;//新加result := true;
s := Tstringlist.create;
try
s.loadfromfile(filename);
s.delete
;s.savetofile(filename);
except
result := false;
s.free;
exit;
end;
s.free;
end;
G
guangmin
Unregistered / Unconfirmed
GUEST, unregistred user!
thanks
G
guangmin
Unregistered / Unconfirmed
GUEST, unregistred user!
thanks
