Delphi заготовки

Процедура позволяет определить входит ли цифра B в число Х

Помогите решить задачку

Определить, есть ли среди цифр заданного положительного четырехзначного числа цифра "0"

Function GetIntInInteger(x:Integer;B:integer):boolean;
var
    g:boolean;
begin
x:=10234;
g:=false;
  while x>0 do begin
     if (x mod 10)=B then g:=true;
     x:=x div 10;
  end;
  result:=g;
end;

вариант через String 

var x:integer;
begin 
 if pos('0',inttostr(x))>0 then // есть 
else // нет 

		
		... 
		
			Читать дальше »
		

 для открытия его в Excel

Процедура открытия файла с расширением *.CSV или как загрузить таблицу из CSV файла Delphi.

//  Table - таблица TStringGrid
//  Filename - имя файла
//ch разделитель  - по умолчанию точка с запятой ";"
// StartRow сколько строк оставить для заготовка

Function LoadTableFormFile(Table:TStringGrid;Filename:string;ch:char=';'; StartRow:integer=0 ):boolean;
var t,l,x,y:integer;
    s2,s:string;
    f:textfile;
begin
if fileage(Filename)>0 then begin // проверка на существование файла
  assignfile(f,Filename);
  reset(F);
y:=StartRow-1;

  repeat
  readln(f,s);
  y:=y+1;
  if y>=Table.RowCount then Table.RowCount:=y+1;
  l:=length(s);
  s2:='';
  t:=0;
  x:=1;
  while x<=l do begin
       if s[x]='#' then begin
   ... Читать дальше »