[Помогите!] Хелп приз

[pavel!]

Привет ребят. Встала проблема ^_^
Есть переменная List:tstringlist;
В нее грузятся аккаунты login@domain;pass
Я понятия не имею как мне скопировать domain...
Допустим у меня есть переменная Domain, в нее и надо мне скопировать, но что б брало с List...
Объясните пожалусто, или мб кто поможет кодом с коментариями ^_^

За ранее спасибки.

[SunRRRice]

Можно так:

for i:=0 to list.Count-1 do // делаем цикл , присваиваем переменной i значения от 0 до 
                                                    // количества строк list-1 т.к. перечисление начинается с 1 . а нам нужно с 0.
begin
domain:=Copy(list[i],pos('@',list[i])+1,Length(list[i])); // вытаскиваем 
Delete(domain,Pos(';',domain),Length(domain));        // домен
// выполнение твоего кода 
end;

или

 i:=0; // присваиваем i значение 0 , и потом будем брать из нее номер строки 
domain:=Copy(list[i],pos('@',list[i])+1,Length(list[i])); // вытаскиваем 
Delete(domain,Pos(';',domain),Length(domain));        // домен
// выполнение твоего кода

[=PaLeTiZaToR=]

var
login,Pass:string;
for i:=0 to list.Count-1 do
begin
Login:= Copy(list[i],1,Pos(';',list[i])-1); //Копируем логин в "Login"
Pass:=Copy(list[i],Pos(';',list[i])+1,Length(list[i])); //Копируем пароль в "Pass"
end

почти тоже самое что и выше , но в переменную Login вгоняется часть строки до символа ';' а в Pass уже все то , что после этого символа...

P.s Этот символ служил разделителем логина и пароля Кеп

[pavel!]

Domain:=Copy(List[Accs],Pos('@',List[Accs])+1,Pos(';',List[Accs])-1);
Вот что то подобия этого, только он копирует и домени пас ^_^

[pavel!]

Цитата: Сообщение от SunRRRice Используй процедуру Delete. Я писал выше про нее , если не понял - [Ссылки могут видеть только зарегистрированные пользователи. ]

Мне надо без всяких делете, чисто что бы было

// Все проблема решена. Спасибо Relli.

[=PaLeTiZaToR=]

Цитата: Сообщение от pavel! Мне надо без всяких делете, чисто что бы было // Все проблема решена. Спасибо Relli.

Странный ты, что значит, тебе нужно чтоб чисто все было

[pavel!]

Цитата: Сообщение от =^PaLeTiZaToR^= Странный ты, что значит, тебе нужно чтоб чисто все было

Чисто это вот так:
Fdomen:=Copy(List[i], Pos('@', List[i]) + 1, Pos(';', List[i]) - Pos('@',List[i]) - 1);

Ребят а можно как нибудь посчитать текст в хтмл?
Допустим я ищу в хтмл <title>
Можно его как то посчитать? не парся его?

[VeTaL_UA]

Цитата: Сообщение от pavel! Можно его как то посчитать? не парся его?

чего? как можно посчитать текст?

[borum]

Цитата: Сообщение от VeTaL_UA чего? как можно посчитать текст?

Был какой то мультик - там осел или бык молодой всех животин считал )). А тут текст считают ))

[VeTaL_UA]

Один текст, два текста, три текста...

[OneShot]

Цитата: Сообщение от pavel! Чисто это вот так: Fdomen:=Copy(List[i], Pos('@', List[i]) + 1, Pos(';', List[i]) - Pos('@',List[i]) - 1); Ребят а можно как нибудь посчитать текст в хтмл? Допустим я ищу в хтмл <title> Можно его как то посчитать? не парся его?

Только парся, парсинг и есть считывание, вот пример:

Для начала нам нужно получить текст самой страницы, для этого мы и будем использовать TidHTTP, на событие Button1 - OnClick напишем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var
St:WideString;
begin
try
St:=IdHTTP1.Get('http://devdelphi.ru/?p=30');
ShowMessage(St);
except
on e:Exception do
end;
end;

Здесь мы получаем код страницы, и выводим сообщение, увидем весь html-код нашей страницы.
Далее пропарсим нашу страницу, найдем ссылку вот эту - [Ссылки могут видеть только зарегистрированные пользователи. ], для этого дополним наш код:

procedure TForm1.Button1Click(Sender: TObject);
var
St:WideString;
begin
try
St:=IdHTTP1.Get('http://devdelphi.ru/?p=30');
Delete(St,1,pos('<span style="color: #0000ff;"><a href="',St)+length('<span style="color: #0000ff;"><a href="')-1);
Delete(St,pos('">',St),length(St));
ShowMessage(St);
except
on e:Exception do
end;
end;