ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure FileNameToArr(dir, 
                       mask: string;  
                       var a: array of string; 
                       var DirFound: integer); 
var
  s: TSearchRec;
  i:integer;
begin
  i:=0;
  If FindFirst(dir+mask, faAnyFile, s) = 0 then begin
    repeat
      inc(i);
      a[i]:=dir+s.Name;
    until findnext(s) <> 0;
  end;
  FindClose(s);
  DirFound:=i;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  max = 512; // максимальное ко-во директорий к файлу
var
  a:array[1..max] of string;
  i, n:integer;
begin
  FileNameToArr('c:\', '*.txt', a, n);
  for i:=1 to n do
    Memo1.Lines.Append(a[i]);
  { выведет на экран все тектовые файлы директории c:\ }
end;

const Email = 'User@mail.ru';
var p: PChar;
begin
  p:=strpos(Email, '@');
  if p <> nil then inc(p);


function ParseEmail( Email: PChar): PChar;
//const Email = 'User@mail.ru';
var p: PChar;
begin
  p:=strpos(Email, '@');
  if p <> nil then inc(p);
  Result:=p;
end;
...
ShowMessage(ParseEmail('User@mail.ru'));

program h;
uses crt;
var a : integer;
b : real;
c:char;
begin
clrscr;
writeln('Sei4as ya otgadaiy zadumannoe');
write('Vami 4etnoe 4islo');
writeln('Zadumali?');
readln;
repeat  read(c);
writeln('Umnojte ego na 3');
readln;
writeln('Polu4ennoe proizvedenie');
write('razdelite na 3');
readln;
writeln('4astnoe umnojte na 3');
readln;
until (c = '');
writeln('Skolko poly4ilos?');
readln(a);
clrscr;
b:=(a div 9)*2;
writeln(b);
readln
end.