Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поменять регистр текста

Автор: GELEAF 12.1.2007, 22:31

Ребята вот у меня есть txt файл,в нем все буквы находятся в вверхнем регистре,тоесть все большые,так вот как мне сделать чтобы прога переделала етот txt так чтобы там все маленькие буквы были. smile

Автор: VICTAR 12.1.2007, 22:34

AnsiLowerCase

Автор: GELEAF 12.1.2007, 22:38

VICTAR,а можно поконкретнее?

Автор: Sunvas 12.1.2007, 22:41

GELEAF, а по-конкренее? Считываешь файл построчно, затем делаешь такую фичу s:=AnsiLowerCase(s)
И у тебя вся строка становиться в нижнем регистре.

Автор: VICTAR 12.1.2007, 22:42

Код


function AnsiLowerCase(const S: string): string;

преобразовывает строку в нижний регистр.

Добавлено @ 22:44
Например:

Код


procedure TForm1.Button1Click(Sender: TObject);
var str: TStringList;
begin
str:=TStringList.Create;
str.LoadFromFile('C:\DBS.TXT');
str.Text:=AnsiLowerCase(str.Text);
str.SaveToFile('C:\DBS.TXT');
str.Free;
end;

Автор: GELEAF 12.1.2007, 23:54

Всем спасиба,я разобрался)