Pos

← →
Bast (2007-09-03 19:20) [0]

Проблема заключается в том что есть файл, в нем записано:
test@mail.ru:65416846416
А вместо того чтобы выделить mail.ru выделяется mail.ru:654168
Интерестно в чем проблема?
Пример:
x:=0;
email:=Tstringlist.Create;
email.LoadFromFile(form1.Edit12.Text);
t:=Pos("@", email.Strings[x]); // Íàõîäèì "@"
v:=Pos(":", email.Strings[x]); // Íàõîäèì ":"
form1.Edit1.Text:=Copy(email.Strings[x], t+1, v-1);
form1.Memo2.Lines.Add(form1.Edit1.Text);

← →
Sha © (2007-09-03 19:25) [1]

form1.Edit1.Text:=Copy(email.Strings[x], t+1, v-1);

← →
DVM © (2007-09-03 19:27) [2]

> form1.Edit1.Text:=Copy(email.Strings[x], t+1, v-1);

test@mail.ru:65416846416

t = 5
v = 13

копируешь с 6 символа 12 символов

← →
Bast (2007-09-03 19:37) [3]

Ну правильно, должно скопироваться mail.ru, а копируется mail.ru:654168

← →
Bast (2007-09-03 19:38) [4]

аа понял, а как скопировать только mail.ru?

← →
Sha © (2007-09-03 19:48) [5]

а как ты копируешь mail.ru:654168?

← →
Bast (2007-09-03 19:50) [6]

Все понял, всем спасибо за помошь

← →
DVM © (2007-09-03 19:51) [7]

> Bast (03.09.07 19:38) [4]

ты такое арифметическое действие как вычитание проходил?

← →
Bast (2007-09-03 19:59) [8]

Другой вопрос...
If Timer>strtoint(form1.edit5.Text) then
begin
form1.IdSMTP1.Host:=form1.Edit1.Text;
form1.IdPOP31.Host:=form1.Edit2.Text;
form1.IdSMTP1.Username:=form1.Edit3.Text;
form1.IdSMTP1.Password:=form1.Edit4.Text;
form1.IdPOP31.Username:=form1.Edit3.Text;
form1.IdPOP31.Password:=form1.Edit4.Text;
form1.IdPOP31.Connect();
If not form1.IdPOP31.Connected then retry; {Что будет делать данная строчка в это ситуации?}
end;

← →
DVM © (2007-09-03 20:06) [9]

> Bast (03.09.07 19:59) [8]

если IdPOP31 не подключен выполнить retry

← →
Bast (2007-09-03 21:00) [10]

Понимаете мне надо сделать так:
Если not form1.IdPOP31.Connected то должно еще раз повториться If Timer>strtoint(form1.edit5.Text) then
begin

← →
Sha © (2007-09-03 21:11) [11]

> Bast (03.09.07 21:00) [10]

Ты циклы проходил?

← →
Anatoly Podgoretsky © (2007-09-03 21:12) [12]

> Sha (03.09.2007 21:11:11) [11]

Проходил, мимо

← →
Dib@zol © (2007-09-03 21:16) [13]

кхм.

label retry;
...
begin
retry:
If Timer>strtoint(form1.edit5.Text) then begin
...
If not form1.IdPOP31.Connected then goto retry;

← →
Sha © (2007-09-03 21:19) [14]

> Dib@zol ©

кхм, repeat

← →
Вася Правильный (2007-09-03 21:24) [15]

> label retry;...beginretry:

тяжелый случай

← →
Dib@zol © (2007-09-03 21:40) [16]

Дело вкуса.

← →
Bast (2007-09-03 22:41) [17]

Вот кусок кода... Хз почему, но ругается на эту строчку:
If strtoint(form1.Edit13.Text)=email.Count-1 then form1.Edit13.Text:=inttostr(-1);

procedure TForm1.Button4Click(Sender: TObject);
var
t: integer;
v, g, h: integer;
email:Tstrings;
s:string;
x:integer;
begin
x:=strtoint(form1.Edit13.text);
Inc(x);
form1.Edit13.Text:=inttostr(x);
email:=Tstringlist.Create;
email.LoadFromFile(form1.Edit12.Text);
t:=Pos("@", email.Strings[x]); // Íàõîäèì "@"
v:=Pos(":", email.Strings[x]); // Íàõîäèì ":"
form1.Edit1.Text:="smtp."+Copy(email.Strings[x], t+1, v-t-1);
form1.Edit2.Text:="pop."+Copy(email.Strings[x], t+1, v-t-1);
form1.Edit3.Text:=copy(email.Strings[x], 1, t-1);
form1.Edit4.Text:=copy(email.Strings[x], v+1, 255);
form1.Edit10.Text:=copy(email.Strings[x], 1, v-1);
email.Free;
form1.Memo2.Lines.Add(form1.Edit1.Text);
form1.Memo2.Lines.Add(form1.Edit2.Text);
form1.Memo2.Lines.Add(form1.Edit3.Text);
form1.Memo2.Lines.Add(form1.Edit4.Text);
form1.Memo2.Lines.Add(form1.Edit10.Text);
If strtoint(form1.Edit13.Text)=email.Count-1 then form1.Edit13.Text:=inttostr(-1);
end;

end.

Должна не просто, а грязно ругаться

form1.Edit13.Text:="-1";?

P.S. ...please, read books!!!

> x:=strtoint(form1.Edit13.text);
> Inc(x);
> form1.Edit13.Text:=inttostr(x);
.... <БРЕД>
>email.Free;
.... <БРЕД>
> If strtoint(form1.Edit13.Text)=email.Count-1 then form1.Edit13.Text:=inttostr(-1);

Блин.... ну не ужели так то-то пишет программы???? Ужас :( (я не только про этот кусок кода но и алгоритм в целом)
Черт.... я не против помочь человеку, но если человек сам себе уже не хочет помогать, тут уже "труба"...
Автор... ну почитай книжки, посмотри примеры, задавай вопросы хотябы на уровне начинающих....
ЗЫ Досадно :(

> > x:=strtoint(form1.Edit13.text);
> > Inc(x);
> > form1.Edit13.Text:=inttostr(x);
> .... <БРЕД>
> >email.Free;
> .... <БРЕД>
> > If strtoint(form1.Edit13.Text)=email.Count-1 then form1.Edit13.Text:
> =inttostr(-1);

Собственно там долно быть так:
begin .... <БРЕД> end;
Я оставил часть, дабы показать почему у тебя "ругается"....

> Блин.... ну не ужели так то-то пишет программы???? Ужас:(

Да ладно. Бывает и хуже. :-)
Этот код хоть ошибку выдаёт, а не подвешивает комп без объяснения причин! :-)

Будет, все еще впереди.

Pos Найти похожие ветки