0
0
to ci pomoże
edit1.text := uppercase(edit1.text); z małych duże
edit1.text := lowercase(edit1.text); z dużych małe
chyba o to chodzi
0
Jeśli dobrze zrozumiałem, to użyj tej funkcji:
function TForm1.zmien(InText: string): string;
var
I : integer;
begin
for I := 1 to Length(InText) do
begin
if (Ord(InText[i]) >= 65) and (Ord(InText[i]) <= 90) then
Result := Result + Chr(Ord(InText[i])+ 32);
if (Ord(InText[i]) >= 97) and (Ord(InText[i]) <= 122) then
Result := Result + Chr(Ord(InText[i]) - 32);
end
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := zmien(edit1.text);
end;
end.
Z textu Gal Anonim zmieni na gAL aNONIM.
Działa tylko do liter A..Z i a..z.
0