Проблема с циклом считывания и записи в Memo.

[Nocturnal]

Доброго времени суток. Встала перед мною так задача... Нужно считать из
текстового фаила(в нем находяться тока числа, определенного количества,
например:"385475891, 519874120, 578356238") все строки, и раскопировать
все строки такое количество раз какое стоит последними 2-я
числами(например:385475891, нужно раскопировать 91 раз), и записать в
другой текстовик. Вот чего я добилься... дальше не получаеться... облазил пол тырнета ничего похожего нет... За раннее
благодарю.

procedure TForm1.Button4Click(Sender: TObject);
var
last:string;
a,i:integer;

begin
   a:=Memo1.Lines.Count;
   for i:=0 to (a)-1 do
   last:=Copy(IntToStr(a),8,2);
   //memo2.text:=a;
   //Memo2.Lines.Append(IntToStr(StrToInt(Memo1.Lines[i])));
   memo2.Text:=last;
   for i:=2 to StrToIntDef(last,0) do
   Memo1.lines.Add(AdjustLineBreaks(StrToIntDef(Memo1.Lines.Count,0)));
   memo1.lines.SaveToFile('D:\Documents and Settings\Admin\Мои 
документы\Дельфа\2.txt');
   end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('D:\Documents and Settings\Admin\Мои 
документы\Дельфа\1.txt');
end;

[SERG1980]

procedure TForm1.Button4Click(Sender: TObject);
var
a,i,last:integer;

begin
for i:=0 to Memo1.Lines.Count-1 do
last:=StrToInt(Copy(Memo1.Lines[i],8,2));
//memo2.text:=a;
//Memo2.Lines.Append(IntToStr(StrToIn t(Memo1.Lines[i])));
memo2.Text:=last;
for i:=2 to last do
Memo1.lines.Add(AdjustLineBreaks(St rToIntDef(Memo1.Lines.Count,0)));
memo1.lines.SaveToFile('D:\Document s and Settings\Admin\Мои 
документы\Дельфа\2.txt');
end;

[Nocturnal]

Не работает =( таже ошибка: "------Debugger exception Notification-------
Project Project1.exe raised exception class EConvertError with message ''' is not a valid integer value'. Process stopped. Use Step or Run to continue."

[SERG1980]

не стал ваш код переделывать вот мой вариант

procedure TForm1.Button1Click(Sender: TObject);
var i,j,last:integer;
begin
 for i:=0 to Memo1.Lines.Count-1 do
 begin
  last:=StrToInt(Copy(Memo1.Lines[i],8,2));
  for j:=1 to Last do
   memo2.Lines.Add(Memo1.Lines[i]);
 end;
 memo2.Lines.SaveToFile('d:\12.txt');
end;

[Nocturnal]

Тот же результат... ошибка и все тут...

[SERG1980]

Сообщение от Nocturnal

Тот же результат... ошибка и все тут...

не может быть код рабочий прежде чем выложить проверил сам. Или выложите входной файл который грузиться в мемо1
обратите внимание файл грузится с другого пути
Да кстати вот мой входной файл

[Serge_Bliznykov]

for i:=0 to Memo1.Lines.Count-1 do
last:=StrToInt(Copy(Memo1.Lines[i],8,2));

так делать бессмысленно! Зачем перебирать все строки, если интересует только ПОСЛЕДНЯЯ СТРОЧКА!?
достаточно:

try
   last:=StrToInt(Copy(trim(Memo1.Lines[Memo1.Lines.Count-1]),8,2));
except
   Application.MessageBox(PChar('Невозможно распознать число в последней строчке! '
            +trim(Memo1.Lines[Memo1.Lines.Count-1])), 'Ошибка', MB_ICONERROR or MB_OK);
end;

p.s. и ищите проблемы в Вашем текстовом файле...
скорее всего, там после последней строки есть ещё пустая (или несколько пустых) строк!

[Nocturnal]

да спасибо... действительно была пустая строчка... фуф =) Еще раз спасибо!