Цитата:
Сообщение от 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 работают по разному... и замена в делфи транк на раунд, решила мою проблему... на счет строк, текстовый файл я создаю сам, и там кроме цифр действительных ничего быть не может
поэтому я читал сразу по одному числу
всем спасибо!!!!