Сегодня понадобилось в большом списке файла заменить первые буквы во всех строках на заглавные. Теперь этим примером для Delphi поделюсь с вами. Для этого кидаем на форму 2 Memo, и Button. Массовое преобразование будет производиться при помощи функции AnsiUpperCase
procedure TForm1.Button1Click(Sender: TObject);
var
Str1, Str2: String;
i: integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
Str1 := Memo1.Lines.Strings[i];
Memo2.Lines.Add((AnsiUpperCase(Copy(Str1, 1, 1))) + Copy(Str1, 2,
Length(Str1)));
end;
end;
var
Str1, Str2: String;
i: integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
Str1 := Memo1.Lines.Strings[i];
Memo2.Lines.Add((AnsiUpperCase(Copy(Str1, 1, 1))) + Copy(Str1, 2,
Length(Str1)));
end;
end;
сухарев дельфи
rad studio 2010 учебник