Delphi. Преобразовать строку заменив все вхождения прописных букв на

[Sergey1966]

Вот полностью задача.
Дана строка символов состоящая из строчных и прописных букв. Преобразовать строку заменив все вхождения прописных букв на строчные

[Stilet]

Ну дык функция AnsiUpperCase() тебе эту задачу решит.

[Sergey1966]

а можете целиком текст программы написать, пожалуйста

[BDA]

memo2.text := AnsiUpperCase(memo1.text);

Если смотреть на то, что Вы уже написали.

[Sergey1966]

procedure UpCaseRU1251(var aStr : String);
var
  i, Len : Integer;
begin
  Len := Length(aStr);
  for i := 1 to Len do begin
    case aStr[i] of
      
      #$E0..#$FF : aStr[i] := Char( Ord(aStr[i]) - $20 );
      #$B8 : aStr[i] := #$A8; //Буква: ё.
    end;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  S := Memo1.Text;
  UpCaseRU1251(S);
  Memo2.Text := S;
end;

что вот здесь исправить надо?

[BDA]

Убрать процедуру UpCaseRU1251. В процедуре TForm1.Button1Click убрать переменную S и заменить весь код в процедуре на memo2.text := AnsiUpperCase(memo1.text);.

[Sergey1966]

Можете отредактировать мою запись пожалуйста?( а то я в легком нокдауне от Delphi) очень прошу...завтра сдавать надо эти лабы уже((

ребят я понимаю что нагло, но очень прошу)

просто то что я написал отредактируйте чтобы правильно было...

[BDA]

procedure UpCaseRU1251(var aStr : String);
var
i, Len : Integer;
begin
Len := Length(aStr);
for i := 1 to Len do begin
case aStr[i] of

#$E0..#$FF : aStr[i] := Char( Ord(aStr[i]) - $20 );
#$B8 : aStr[i] := #$A8; //Буква: ё.
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
S : String;
begin
S := Memo1.Text;
UpCaseRU1251(S);
Memo2.Text := S;
//
end;

Красное удалить, вместо зеленого - вписать новый код

[Sergey1966]

ммм...я все равно ни фига щас не понимаю((( может напишите как правильно должно быть, простите уж за наглость такую(( просто время уже 3 часа ночи, а у меня лабы в 8((