Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Добрый день. Есть список

mikey © (2004-07-31 16:22:00)
http://www.delphimaster.ru/forum/add-0.html
http://www.translate.ru/text.asp#tr_form
http://www.imt.ru/price/price.html
kak мне обрезать его до ru т.е:
http://www.delphimaster.ru
http://www.translate.ru
http://www.imt.ru
по одной строке получается, а вот с циклом что-то не выходит. Подскажите. Заранее спасибо.

Timedrops (2004-07-31 17:20:00) [1]
2 mikey
Тебе же сказали
а если встретится .com или .net ?

Причём тут тогда pos('.ru',............

mikey (2004-07-31 17:11:00) [2]
а если встретится .com или .net ?
можно
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 to Memo1.Lines.Count -1 do
if pos('.ru', Memo1.Lines.Strings[i])<>0 then
Memo1.Lines.Strings[i]:=copy(Memo1.Lines.Strings[i], 0,
pos('.ru', Memo1.Lines.Strings[i])+Length(s)-1);
end;

mikey (2004-07-31 17:11:00) [3]
а если встретится .com или .net ?
можно
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 to Memo1.Lines.Count -1 do
if pos('.ru', Memo1.Lines.Strings[i])<>0 then
Memo1.Lines.Strings[i]:=copy(Memo1.Lines.Strings[i], 0,
pos('.ru', Memo1.Lines.Strings[i])+Length(s)-1);
end;

Timedrops (2004-07-31 16:47:00) [4]
А я бы так сделал на пример

procedure TForm1.Button1Click(Sender: TObject);
var
p1,p2 : integer;
strtmp: string;
begin
p1:=pos('.',edit1.Text)-1;
strtmp:=copy(edit1.Text,p1,length(edit1.text)-p1);
p2:=pos('/',strtmp)-1;
edit1.Text:=copy(edit1.Text,1,p2+p1-1);
end;

Строка для удаления находится в edit1.text
сначало найду первую точку за "//" чтобы pos('/',strtmp) именно одинарную "/" нашла, а потом обрежу строку.
Пару проверок if тут конечно не помешала бы

Андрей Сенченко (2004-07-31 16:31:00) [5]
Я бы предложил использовать

TStringList.DelimitedText

Андрей Сенченко (2004-07-31 16:28:00) [6]
Красный молоток (31.07.04 16:25) [1]

а если встретится .com или .net ?

Красный молоток (2004-07-31 16:25:00) [7]
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:=0 to Memo1.Lines.Count -1 do if pos('.ru', Memo1.Lines.Strings[i])<>0 then Memo1.Lines.Strings[i]:=copy(Memo1.Lines.Strings[i], 0, pos('.ru', Memo1.Lines.Strings[i])+2); end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »