[Помогите!] С 1 берем , в другую пишим

[pavel!]

Всем здрасте.Сново проблемы
Мне надо что б с 1 мемо брало текст и записывало во 2 мемо.
Допустим 2 стринговые переменные
log:= Copy(Acc[i],1,Pos(''+form1.sEdit1.Text,Acc[i])-1);
pas:= Copy(Acc[i],Pos(''+form1.sEdit1.Text,Acc[i])+1,Length(Acc[i]));

Вот у меня текст в 1 мемо я хочу что бы он по очереди брал и записывал
текст в мемо 2, но не как не могу допетрить как?

[victor20011]

Memo1.text:=memo2.text или memo2.text:=memo1.text
Не?

[metraz]

log:= Copy(Acc[i],1,Pos(''+form1.sEdit1.Text,Acc[i])-1);
pas:= Copy(Acc[i],Pos(''+form1.sEdit1.Text,Acc[i])+1,Length(Acc[i]));

memo2.lines.add(log);
memo2.lines.add(pas);
или я неправильно тебя понял

[pavel!]

Цитата: Сообщение от metraz log:= Copy(Acc[i],1,Pos(''+form1.sEdit1.Text,Acc[i])-1); pas:= Copy(Acc[i],Pos(''+form1.sEdit1.Text,Acc[i])+1,Length(Acc[i])); memo2.lines.add(log); memo2.lines.add(pas); или я неправильно тебя понял

Я пробовал подобное, но берет он последний аккаунт, а надо по порядку.

[Skrillex3]

Если между ником и паролем есть какой нибудь знак то копируешь до этого знака и после него и выводишь в мемо2

[pavel!]

Цитата: Сообщение от victor20011 Memo1.text:=memo2.text или memo2.text:=memo1.text Не?

Такое мне не подходит.

[Skrillex3]

Цитата: Сообщение от pavel! Я пробовал подобное, но берет он последний аккаунт, а надо по порядку.

циклом воспользоваться не судьба?

Цитата: for i := 0 to memo1.lines.count -1 do

[pavel!]

Цитата: Сообщение от Skrillex3 Если между ником и паролем есть какой нибудь знак то копируешь до этого знака и после него и выводишь в мемо2

memo2.lines.add(log+':'+pas);
Вся проблема в том, что берется последний аккаунт с мемо1.
Я распишу подробнее:
log:= Copy(memo1.lines.strings[i],1,Pos(';', memo1.lines.strings[i])-1);
pas:=Copy(memo1.lines.strings[i],Pos(';',memo1.lines.strings[i])+1,Length(memo1.lines.strings[i]));
Писал от руки помойму правельно.
вот идет цикл for i:=0 to memo1.lines.count-1 do
begin
тут мои log и pas что то выполняеют
potok2.create(false); // запускаю 2 поток
end;

тут уже идет 2 поток
и в этом потоке мне надо что бы весь текст и мемо он мне записал по порядку
сначало 1 строку, потом 2 , потом 3 и т.д.
Если делать так memo2.lines.add(log+';'+pas);// тогда берется последняя строка с memo1 и вставляется в memo2. А мне надо что бы все по порядку.

[ktulx]

А ты уверен, что с парсингом строк у тебя всё в порядке?

Цитата: log:= Copy(memo1.lines.strings[i],1,Pos(';', memo1.lines.strings[i])-1); pas:=Copy(memo1.lines.strings[i],Pos(';',memo1.lines.strings[i])+1,Length(memo1.lines.strings[i])); Писал от руки помойму правельно. вот идет цикл for i:=0 to memo1.lines.count-1 do begin тут мои log и pas что то выполняеют potok2.create(false); // запускаю 2 поток end;

Тут есть цикл.

Цитата: memo2.lines.add(log+';'+pas);

А тут нету. Вот ты и записываешь в мемо2 последние значения переменных. Не?
А если так

for i:=0 to memo1.lines.count-1 do begin
log:= Copy(memo1.lines.strings[i],1,Pos(';', memo1.lines.strings[i])-1);
pas:=Copy(memo1.lines.strings[i],Pos(';',memo1.lines.strings[i])+1,Length(memo1.lines.strings[i]));
memo2.lines.add(log+';'+pas);
end;

[pavel!]

Цитата: Сообщение от ktulx А ты уверен, что с парсингом строк у тебя всё в порядке? Тут есть цикл. А тут нету. Вот ты и записываешь в мемо2 последние значения переменных. Не? А если так for i:=0 to memo1.lines.count-1 do begin log:= Copy(memo1.lines.strings[i],1,Pos(';', memo1.lines.strings[i])-1); pas:=Copy(memo1.lines.strings[i],Pos(';',memo1.lines.strings[i])+1,Length(memo1.lines.strings[i])); memo2.lines.add(log+';'+pas); end;

Я бы попосту не обратился, он берет только 1 строку, а остальные просто не записывает.