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

← →
mikey (2004-07-31 16:22) [0]

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
по одной строке получается, а вот с циклом что-то не выходит. Подскажите. Заранее спасибо.

← →
Красный молоток (2004-07-31 16:25) [1]

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;

← →
Андрей Сенченко © (2004-07-31 16:28) [2]

Красный молоток (31.07.04 16:25) [1]

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

← →
Андрей Сенченко © (2004-07-31 16:31) [3]

Я бы предложил использовать

TStringList.DelimitedText

← →
Timedrops © (2004-07-31 16:47) [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 тут конечно не помешала бы

← →
mikey (2004-07-31 17:11) [5]

а если встретится .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) [6]

2 mikey
Тебе же сказали
а если встретится .com или .net ?

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

Добрый день. Есть список Найти похожие ветки