Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1 (двоичное число), в десятичное число

@Жалкий · Регистрация: 30.01.2013

Студворк — интернет-сервис помощи студентам

Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1 (двоичное число), в десятичное число.
В главной программе читать из текстового файла строки нулей и единиц и выводить на экран соответствующие им десятичные числа. Если во введенной строке содержится хотя бы один символ, отличный от 0 или 1, вывести сообщение об ошибке.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,j,d,rez:integer;
f:TextFile;
begin
Label4.Visible:=false;
AssignFile(f,'J:\filenam.txt');
d:=1;
rez:=0;
for i:=1 to [B]length(f)[/B] do begin
case strtoint[B](f[i])[/B] of
2..9:
Label4.Visible:=true;
end;
end;
for i:=1 to [B]length(f)[/B] do
if [B]f[i][/B]='0' then Continue else begin
 for j:=1 to [B]length(f)-i[/B] do
  d:=d*2;
rez:=rez+d;
d:=1;
end;
label1.Caption:=inttostr(rez);
 
end;
 
end.

Это версия моей программы но она не запускается и выдает ошибку, где выдает ошибку я выделил.

@mss · 31.01.2013, 11:38

Сообщение от Жалкий

читать из текстового файла строки

И где у тебя чтение строк ?
Нет его.

@Жалкий · 31.01.2013, 13:07 **[ТС]**

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

И где у тебя чтение строк ?
Нет его.

Так а с этого места по подробнее)) Как это должно выглядеть?

@volvo · 31.01.2013, 13:22

Строки из файла читаются с помощью

Delphi

1	ReadLn(f, s): // s - очередная прочитанная строка

, и потом работаешь со строкой, а не с файлом... SeekEOF тебе тоже понадобится, чтобы определить конец файла.

@mss 2649 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	31.01.2013, 11:38	2
	Сообщение от Жалкий читать из текстового файла строки И где у тебя чтение строк ? Нет его. 0

@Жалкий 0 / 0 / 0 Регистрация: 30.01.2013 Сообщений: 18
	31.01.2013, 13:07 [ТС]	3
	Сообщение от mss И где у тебя чтение строк ? Нет его. Так а с этого места по подробнее)) Как это должно выглядеть? 0

Опции темы