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

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

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

Проблема

Bast © (2007-09-02 22:06:00)
Немогу понять в чем ошибка... Формат файла такой:test@mail.ru:password[smtp.mail.ru]pop.mail.ru
email:=Tstringlist.Create; email.LoadFromFile(form1.Edit12.Text); t:=Pos('@', email.Strings[x]); // Íàõîäèì '@' v:=Pos(':', email.Strings[x]); // Íàõîäèì ':' g:=Pos('[', email.Strings[x]); // Íàõîäèì '[' h:=Pos(']', email.Strings[x]); // Íàõîäèì ']' form1.edit3.Text:= Copy(email.Strings[x], 1, t - 1); form1.edit10.Text:=Copy(email.Strings[x], 1, v-1); form1.Edit4.Text:=Copy(email.Strings[x], v+1, g-1); form1.Edit1.Text:=Copy(email.Strings[x], g+1, h-1); form1.Edit2.Text:=Copy(email.Strings[x], h+1, 255);

Reindeer Moss Eater (2007-09-02 23:54:00) [1]
Лекарство от чудес:

g:=Pos('[', email.Strings[x]);
if g = 0 then
ShowMessage('Ё-маё! А ведь и правда нету скобок'#13#10 + email.Strings[x]);

Leonid Troyanovsky (2007-09-02 23:48:00) [2]

> Bast (02.09.07 23:32) [6]

> test@mail.ru:password[smtp.mail.ru]pop.mail.ru но дело в
> том что [ и ] есть

Здесь - есть, а там, очевидно, нет.

Чудеса, конечно, бывают, но очень редко.

--
Regards, LVT.

Bast (2007-09-02 23:32:00) [3]
test@mail.ru:password[smtp.mail.ru]pop.mail.ru но дело в том что [ и ] есть

Leonid Troyanovsky (2007-09-02 22:40:00) [4]

> Bast (02.09.07 22:32) [4]

> Объясните почему переменные g, h = 0?

Delphi help: Pos Routine:

If Substr is not found, Pos returns zero.

--
Regards, LVT.

Bast (2007-09-02 22:32:00) [5]
Объясните почему переменные g, h = 0?

Bast (2007-09-02 22:23:00) [6]
ой пля
ПЕРЕМЕННАЯ X :)

Bast (2007-09-02 22:22:00) [7]
Можете подсказать что не так?

Anatoly Podgoretsky (2007-09-02 22:13:00) [8]
> Bast (02.09.2007 22:06:00) [0]

Ну постарайся

Наверх

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