login@domain.com;pass она должна брать сначала только "login" потом "domain.com" и на последок "pass"

[AquaKlaster]

Доброго времени суток! Как написать прогу которая будет брать из текстовика с таком содержанием login@domain.com;pass она должна брать сначала только "login" потом "domain.com" и на последок "pass" и эти три надписи должны вбиватся в переменные! Как это зделать? Зарание Спасибо !!!

[Juffin]

В принципе можно по очереди читать char до тех пор, пока не встретится "@", ";", а потом соединить char в string. можно считать всю строку, найти "@", скопировть в другую строку все до него, аналогично от @ до ;.

[Dj_smart]

str:= ... // читаешь строку из файла
lg:=copy(str,pos('@',str)-1);
delete(str,pos('@',str));
dom:=copy(str,pos(';',str)-1);
delete(str,pos(';',str));
pass:=str;

В результате:
lg-login
dom-domain
pass-password

[AquaKlaster]

ну вот у мя есть текст файл 123456.txt можно код для этого файла плиз!!! О и еще нужно что бы потом то строка удалилась из файла!

[Juffin]

может быть...

var lg,dom,pass,str:string;
     f:text;
begin
assign(f,'123456.txt')
reset(f);
readln(f,str);
lg:=copy(str,pos('@',str)-1);
delete(str,pos('@',str));
dom:=copy(str,pos(';',str)-1);
delete(str,pos(';',str));
pass:=str;
readln;

с удалением - влом писать
по идее надо удалить строку, а потом символы с кодом 13 и 10 (enter)