Сделала вот такой код:
procedure TForm2.FormCreate(Sender: TObject);
var t:TStringlist;
i:integer;
begin
t:=TStringlist.Create;
t.LoadFromFile('1.txt'); //файл в папке с программой
for i:=0 to t.Count-1 do
t.Strings[i]:=AnsiUpperCase(t.Strings[i]);
t.SaveToFile('2.txt');
end;
end.
Переделываю на чтение построчно (что делаю не так?):
procedure TForm2.FormCreate(Sender: TObject);
var f1,f2:TextFile;
s:string;
i:integer;
begin
if OpenDialg1.Execute then begin
AssignFile(f1,OpenDialog1.FileName);
AssignFile(f2,ExtractFileDir(OpenDialg1.FileName));
Reset(f1); Rewrite(f2);
while not Eof(f1) do begin
Readln(f1,s);
f1:=AnsiUpperCase(f2);
Writeln(f2,s);
CloseFile(f1);
CloseFile(f2);
end;
end;
end;
end
AssignFile(f2,ExtractFileDir(OpenDialg1.FileName));