关于readln的问题！

Question

Readln(FileVar,szLine);while szLine <> '' do
begin
    if Copy(szLine,Length(szLine) - 4 + 1,4) = '.bmp'
        SaveToTempVar;
       
    Readln(FileVar,szLine);
end;

Answer 1

what's means?
SaveToTempVar;

Answer 2

我有一个懒人的办法。因为我是大懒人。hoho ：）
Listbox := TListBox.Create();
Listbox.Visible := false;
Listbox.Item.LoadFormFile('a.txt');
for I := 0 to Listbox.item.count - 1 do
  然后用Listitem.item[I]可以访问每一行。
注：投机取巧有时候是好办法，有时候会坏事。老兄稳住！

Answer 3

easy!!
while not eof(f) do
begin
  readln(f,s);
  if pos('.bmp',lowercase(s))>0
     then //read bmp...
end;

Answer 4

SaveToTempVar;
保存到临时变量和对象中var
  temp: TStringList;
  FileVar: TextFile;
  szLine: String;
begin
    temp := TStringList.Create'
    temp.Clear; 
    AssignFile(FileVar,'C:\A.Txt');
    Reset(FileVar);
    Readln(FileVar,szLine);
    try 
        while szLine <> '' do
        begin
            if Copy(szLine,Length(szLine) - 4 + 1,4) = '.bmp' then
                Temp.Add(szLine); 
            Readln(FileVar,szLine); 
        end;
    except
        CloseFile(FileVar);
    end;
   end;

Answer 5

谢谢各位！我的意思是把a.txt文件里面的所有*.bmp读出到b.txt里面来！！

Answer 6

不就是一个逆过程吗？var
temp: TStringList;
FileVar: TextFile;
szLine: String;
iCount: Integer;
begin
temp := TStringList.Create'
temp.Clear; 
AssignFile(FileVar,'C:\A.Txt');
Reset(FileVar);
Readln(FileVar,szLine);
try 
while szLine <> '' do
begin
if Copy(szLine,Length(szLine) - 4 + 1,4) = '.bmp' then
Temp.Add(szLine); 
Readln(FileVar,szLine); 
end;
except
CloseFile(FileVar);//读到b.txt中AssignFile(FileVar,'C:\A.Txt');
Append(FileVar);
try 
 for iCount := 0 to Temp.Count - 1 do
 begin
     Writeln(FileVar,Temp[iCount]); 
 end;
except
CloseFile(FileVar);
end;end;

Answer 7

对不起，后一个AssignFile(FileVar,'C:\A.Txt');
应改为 AssignFile(FileVar,'C:\B.Txt');

Answer 8

对不起，后一个AssignFile(FileVar,'C:\A.Txt');
应改为 AssignFile(FileVar,'C:\B.Txt');

Answer 9

谢谢liusp!!
b.txt怎么还是空的！