Тук изрових един стар код - дано да тръгне - добавка е към стандартния RichEdit

function ToASCII(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
if Ord(S)>=$80 then //191
Result:=Result+Chr(Ord(S)+($C0-$80)) else //-64
Result:=Result+S;
end;


procedure TMainForm.ConvertDOScyrtoWincyr1Click(Sender: TObject);
var i:integer;
begin
if Editor.HandleAllocated then
for i:=0 to Editor.Lines.Count do
Editor.Lines:=ToASCII(Editor.Lines);
end;

---

Съдържаниет е скрито
Влезте за да го видите