Текущий архив: 2007.04.29;
Скачать: CL | DM;
Вниз
Работа со строками (как удалить из строки рус.буквы) Найти похожие ветки
← →
Officeman © (2007-04-08 00:12) [0]как удалить из строки рус.буквы
дана строка:
Телевизор Onida 21 Black DLX (+наушники) (54 см)
надо программа обработать что бы осталось:
Onida 21 Black DLX (+) (54)
← →
Johnmen © (2007-04-08 00:37) [1]Пробел тоже русская буква? :)
И что не можешь - удалить или определить?
← →
Officeman © (2007-04-08 05:01) [2]не могу определить русские буковки. подскажите.
← →
{RASkov} (2007-04-08 06:20) [3]> [2] Officeman © (08.04.07 05:01)
Все что ODR(Ch)>127 все не англ.
← →
{RASkov} (2007-04-08 06:21) [4]>=
← →
{RASkov} (2007-04-08 07:25) [5]Вообще-то ОРД :) D, почему-то, вперед R нажалось.... :)
← →
Anatoly Podgoretsky © (2007-04-08 12:44) [6]> {RASkov} (08.04.2007 06:20:03) [3]
Но откуда вывод, что они русские?
← →
Officeman © (2007-04-08 17:26) [7]а ну да.
- "на друга надейся а сам не плошай"
if (str[i] in ["а.."а","А".."Я"]) then begin
тока у мня и пробелы тоже удаляются.
поправьте если что не так
← →
Officeman © (2007-04-08 17:27) [8]нужно чтобы пробелы тоже сохранились
← →
Officeman © (2007-04-08 17:32) [9]ужо сделал.
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
str,str2:string;
begin
str:=Edit1.Text; // начальная строка
for i := 1 to Length(str) - 1 do
begin
if (str[i] in [" ","a".."z","A".."Z","0".."9"]) then begin
str2 := str2 + str[i];
end;
end;
edit2.Text:=str2; // результат
end;
← →
Officeman © (2007-04-08 17:38) [10]//ps. я понимаю что это курс начинающего бойца. но всёже пусть будет. //может комунить пригодится:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
function strdelimeters(str:string):string;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;
implementation
{$R *.dfm}
function TForm1.strdelimeters(str:string):string;
begin
for i := 1 to Length(str) - 1 do
begin
if (str[i] in [" ","a".."z","A".."Z","0".."9"]) then begin
Result := Result + str[i];
end;
end;
Result:=Trim(Result);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:= strdelimeters(Edit1.Text);
end;
end.
<//code>
← →
Loginov Dmitry © (2007-04-08 18:05) [11]Зачем Length(str) - 1? Почему не Length(str) - 5 (к примеру)?
← →
Officeman © (2007-04-08 18:31) [12]ааа) это забыл убрать
Страницы: 1 вся ветка
Текущий архив: 2007.04.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.048 c
