[Помогите!] переход на следующюю строку

[blad56]

как сделать, что бы после того, как возьмутся данные из строки текстовика, был переход на следующую строку?
Типа:

memo1.Lines.add('#10')

пробывал так, но весь текст тупо едет вниз на одну строку(

[Fliva59]

Запускай цыкл

Цитата: var i:integer; begin for i:=0 to memo1.Lines.Count-1 do begin memo2.Lines.Add(memo1.Lines[i]) end; Вместо memo2.Lines.Add подставь своё

[blad56]

Цитата: Сообщение от Fliva59 Запускай цыкл Цитата: var i:integer; begin for i:=0 to memo1.Lines.Count-1 do begin memo2.Lines.Add(memo1.Lines[i]) end; Вместо memo2.Lines.Add подставь своё

так не пойдет. нужно как то перейти на следующую строчку и взять из неё данные.

[Mebius]

Цитата: Сообщение от blad56 так не пойдет. нужно как то перейти на следующую строчку и взять из неё данные.

очень даже пойдет. просто уметь работать надо.

for i:=0 to memo1.lines.count -1 do
begin
s:=Memo1.Lines[i];
тут твой код обработки данных.
end;

например сделаем получение логина и пароля из строки вида логин:пароль.

type
DList=record //обьявляем новую запись
login,pass:string;
end;

var
FDList:array of DList; // обьявляем массив записи.

procedure GetDataList(filename:string); // процедура заполнения массива данными из файла filename в котором они в виде login:pass
var
list:TStringList; 
i,p:integer;
begin
List:=TStringList.Create;
try // на всякий случай, что б не сожрать память.
List.LoadFromFile(filename); // загружаем данные
for i:=0 to list.Count-1 do
 begin
  SetLength(FDList, Length(FDList)+1); // увеличиваем длинну массива на 1, что б было куда записывать данные
  p:=Pos(':', List[i]); // получаем позицию знака :
  FDList[i].Login:=Copy(List[i],0,p); // копируем логин в массив.
  FDList[i].Pass:=Copy(List[i],p+1,Length(List[i])); // копируем все после символа : в поле пароль в массив.
 end;
finaly
 list.free; // освобождаем память
end;
end;

FDList[i] конкретный номер записи, тоже самое что и memo1.lines[i] тк по сути это массивы строк)


вот яркий пример. за не точности сорри, писал прямо тут)

тупо копировать код отсюда не надо!!!

[VeTaL_UA]

Разбираться сейчас не хочу, так что покури [Ссылки могут видеть только зарегистрированные пользователи. ]... Может чем поможет...

//Mebius, опередил. Сидел, думал, а потом спросил дядюшку Гугла...

[blad56]

Mebius, Спасибо огромное за помощь) но как сделать чтобы после входа на акк брались следующие значения? то есть чекнул, берем данные со второй строки. или он сам будет перекидывать на следующую строку? просто не очен селен пока в программировании)

[VeTaL_UA]

Цитата: Сообщение от blad56 но как сделать чтобы после входа на акк брались следующие значения? то есть чекнул, берем данные со второй строки. или он сам будет перекидывать на следующую строку?

Там же цикл не стоит... Значит само будет, пока не закончатся?..

[Mebius]

Цитата: Сообщение от blad56 Mebius, Спасибо огромное за помощь) но как сделать чтобы после входа на акк брались следующие значения? то есть чекнул, берем данные со второй строки. или он сам будет перекидывать на следующую строку? просто не очен селен пока в программировании)

я же написал как сделать цикл.

procedure Checker;
begin
код проверки акка, тут можно написать ДАХРЕНА КОДА, ГУЛЯНИЯ ПО СТРАНИЦАМ И ПР.ПР.ПР.
end;

procedure LoginToGame(lg,pw:string);
begin
КОД ВХОДА НА АКК.
Checker;
end;

for i:=0 to count-1 do
begin
LoginToGame(Login,Passwd);
end;

[blad56]

Mebius, ты мне практически всю программу написал, хотя у меня так и остался вопрос: "Как перейти на следующую строчку после логина, что бы данные брались уже со второй строки, третьей и т.д.?"