[pifpafka]

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

У вас ведь текстовый файл, с ним нужно так

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
 f: textFile;
 th: string;
begin
 AssignFile(f, 'E:\Delphi\Lab2\TExt1.txt');
 Reset(f);
 while not eof(f) do
  begin
   ReadLn(f, th);
   Label2.Caption:= Label2.Caption + th + ' ';
   if (Pos(',', th) + 2 = Length(th)) and
      (StrToInt(th[Length(th) - 1]) + StrToInt(th[Length(th)]) = 7) then
       label4.Caption:= Label4.Caption + th + ' ';
  end;
 CloseFile(f);
end;

без матраскладок

С кодом все в порядке задача решена. Просто в делфи и на паскаль функция trunc работают по разному... и замена в делфи транк на раунд, решила мою проблему... на счет строк, текстовый файл я создаю сам, и там кроме цифр действительных ничего быть не может поэтому я читал сразу по одному числу всем спасибо!!!!