V
Val
ДАНА ЧАСТЬ ТЕКСТОВОГО РЕДАКТОРА! ПОМОГИТЕ ПЕРЕДЕЛАТЬ НЕСКОЛЬКО ПРОЦЕДУР!
procedure TForm1.OpenClick(Sender: TObject);
begin
If OpenDialog1.Execute
Then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Norm.Enabled := True;
end;
end;
procedure TForm1.NormClick(Sender: TObject);
Var
s: String;
i,j: Integer;
iskl: string;
begin
iskl:='0123456789'+
'ABCDEFGHIJKLlMNOPQRSTUVWXYZ'+
'.,?!:;-+}{)(*&^%$<>%$#@/|\_`"'+#39;
//+#13+#10;
s:=AnsiUpperCase(Memo1.Text);
{УДАЛЕНИЕ СЛУЖЕБНЫХ СИМВОЛОВ}
For i:=0 to Length(iskl) do
s:=StringReplace(s,iskl,'',[rfReplaceAll]);
s:=StringReplace(s,'ё','Е',[rfReplaceAll]);
s:=StringReplace(s,'Ё','Е',[rfReplaceAll]);
{УДАЛЕНИЕ СДВОЕНЫХ ПРОБЕЛОВ/ЗАМЕНА НА ОДИНАРНЫЕ}
repeat
j:=Pos(' ',s);
if j>0 then s:=StringReplace(s,' ',' ',[rfReplaceAll]);
until j<=0;
Memo2.Text:=s;
Code.Enabled := True;
Save.Enabled := True;
end;
procedure TForm1.SaveClick(Sender: TObject);
begin
If SaveDialog1.Execute Then
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;
procedure TForm1.OpenClick(Sender: TObject);
begin
If OpenDialog1.Execute
Then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Norm.Enabled := True;
end;
end;
procedure TForm1.NormClick(Sender: TObject);
Var
s: String;
i,j: Integer;
iskl: string;
begin
iskl:='0123456789'+
'ABCDEFGHIJKLlMNOPQRSTUVWXYZ'+
'.,?!:;-+}{)(*&^%$<>%$#@/|\_`"'+#39;
//+#13+#10;
s:=AnsiUpperCase(Memo1.Text);
{УДАЛЕНИЕ СЛУЖЕБНЫХ СИМВОЛОВ}
For i:=0 to Length(iskl) do
s:=StringReplace(s,iskl,'',[rfReplaceAll]);
s:=StringReplace(s,'ё','Е',[rfReplaceAll]);
s:=StringReplace(s,'Ё','Е',[rfReplaceAll]);
{УДАЛЕНИЕ СДВОЕНЫХ ПРОБЕЛОВ/ЗАМЕНА НА ОДИНАРНЫЕ}
repeat
j:=Pos(' ',s);
if j>0 then s:=StringReplace(s,' ',' ',[rfReplaceAll]);
until j<=0;
Memo2.Text:=s;
Code.Enabled := True;
Save.Enabled := True;
end;
procedure TForm1.SaveClick(Sender: TObject);
begin
If SaveDialog1.Execute Then
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;