Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- For i := 0 to High(StrIn) do
- Begin
- Ch := StrIn[i];
- ChStart := Ch;
- Changed := 0;
- For Ch1 := 'A' to 'Z' do
- Begin
- Ch := StringReplace(Ch, Ch1, chr(ord(ch1) + 32), []);
- Changed := AnsiCompareStr(Ch, ChStart) mod 31;
- ...
Advertisement
Add Comment
Please, Sign In to add comment
