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

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

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

Pos [D7]

Страницы: 1 2 >
Bast © (2007-09-03 19:20:00)
Проблема заключается в том что есть файл, в нем записано:
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);

Anatoly Podgoretsky (2007-09-04 08:44:00) [1]
Будет, все еще впереди.

Германн (2007-09-04 01:50:00) [2]

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

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

{RASkov} (2007-09-04 01:00:00) [3]
> > 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;
Я оставил часть, дабы показать почему у тебя "ругается"....

{RASkov} (2007-09-04 00:57:00) [4]
> 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);

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

vasIZmax (2007-09-03 23:30:00) [5]
form1.Edit13.Text:='-1';?

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

Sha (2007-09-03 22:46:00) [6]
Должна не просто, а грязно ругаться

Bast (2007-09-03 22:41:00) [7]
Вот кусок кода... Хз почему, но ругается на эту строчку:
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.

Dib@zol (2007-09-03 21:40:00) [8]
Дело вкуса.

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

> label retry;...beginretry:

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

Sha (2007-09-03 21:19:00) [10]
> Dib@zol ©

кхм, repeat

Dib@zol (2007-09-03 21:16:00) [11]
кхм.

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

Anatoly Podgoretsky (2007-09-03 21:12:00) [12]
> Sha (03.09.2007 21:11:11) [11]

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

Sha (2007-09-03 21:11:00) [13]
> Bast (03.09.07 21:00) [10]

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

Bast (2007-09-03 21:00:00) [14]
Понимаете мне надо сделать так:
Если not form1.IdPOP31.Connected то должно еще раз повториться If Timer>strtoint(form1.edit5.Text) then
begin

DVM (2007-09-03 20:06:00) [15]

> Bast (03.09.07 19:59) [8]

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

Bast (2007-09-03 19:59:00) [16]
Другой вопрос...
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 19:51:00) [17]

> Bast (03.09.07 19:38) [4]

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

Bast (2007-09-03 19:50:00) [18]
Все понял, всем спасибо за помошь

Sha (2007-09-03 19:48:00) [19]
а как ты копируешь mail.ru:654168?

Bast (2007-09-03 19:38:00) [20]
аа понял, а как скопировать только mail.ru?

Страницы: 1 2 >

Наверх

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