Otvoriť webový dokument v Opere – Pascal – Fórum – Programujte.com

Zdavím,

potreboval by som nejaký príkaz ktorý by otvoril webový dokument v Opere.

dikz.

#1 Peter
myslel som si že my tu niekto poradí ale...

a co chces radit? melo by normalne fungovat    "opera http://web/babla.html"

#3 KIIV
Aký algoritmus by si použil, ak chceš ovtoriť prohlížeč OPERA?

algoritmus? na spusteni externiho programu?

zalezi v cem to delas - v borland pascalu co je 16bitovej to muze byt problem (ale jinak tam samozrejme prikaz "exec" je taky)

freepascal ten to umet musi (bud pres exec nebo neco podobneho)

delphi ma neco jako shellexecute nebo podobne (nevim z hlavy)

používam free pascal EXEC?

http://www.freepascal.org/docs-html/rtl/dos/exec.html

+ obsahlejsi povidani: http://wiki.lazarus.freepascal.org/Executing_External_Programs

dikz.  .

ještě bys mi mohl pomoct. mám vytvoriť program ktorý bude robiť prevody medzi decimálnou a hexadecimálnou číselnou sústavou. ukazem ti zdrojak: mohol by si my poradit ako by som to mohol zjednodušit?

program Hexadecimall;
  var a : longint;
      ab : longint;
      ac : longint;
      ca : longint;
      pole : array [1..6] of char;
      pole2 : array [1..6] of char;
      Koniec : String;
begin
  repeat
    begin
    pole[1]:='A';
    pole[2]:='B';
    pole[3]:='C';
    pole[4]:='D';
    pole[5]:='E';
    pole[6]:='F';
    pole2[1]:='A';
    pole2[2]:='B';
    pole2[3]:='C';
    pole2[4]:='D';
    pole2[5]:='E';
    pole2[6]:='F';
    ab:=16;
      writeln('Dobrý deň, tento program robí prevody z desiatkovej do šestnástkovej číselnej sústavy.');
      writeln();
      writeln('Prosím vás o napísanie čísla pre prevod.');
      readln(a);
      ac:=a DIV ab;
      ca:=a MOD ab;
       begin
        if ac = 10 then
        begin
        writeln(pole2[1],ca);
        end;
        if ac = 11 then
          begin
            writeln(pole2[2],ca);
            end;
            if ac = 12 then
            begin
            writeln(pole2[3],ca);
            end;
            if ac = 13 then
            begin
              writeln(pole2[4],ca);
              end;
              if ac = 14 then
                begin
                  writeln(pole2[5],ca);
                  end;
                  if ac = 15 then
                    begin
                      writeln(pole2[6],ca);
                      end;
      if ca = 1 then
          writeln(ac,'1');
          end;
         if ca = 2 then
         begin
         writeln(ac,'2');
         end;
         if ca = 3 then
         begin
           writeln(ac,'3');
           end;
           if ca = 4 then
           begin
             writeln(ac,'4');
             end;
             if ca = 5 then
             begin
               writeln(ac,'5');
               end;
               if ca = 6 then
               begin
                 writeln(ac,'6');
                 end;
                 if ca = 7 then
                 begin
                 writeln(ac,'7');
                 end;
                 if ca = 8 then
                   begin
                     writeln(ac,'8');
                     end;
                     if ca = 9 then
                       begin
                         writeln(ac,'9');
                         end;
      if ca = 10 then
          begin
         writeln(ac,pole[1]);
           end;
       if ca = 11 then
            begin
           writeln(ac,pole[2]);
           end;
       if ca = 12 then
          begin
       writeln(ac,pole[3]);
          end;
       if ca = 13 then
           begin
       writeln(ac,pole[4]);
           end;
       if ca = 14 then
           begin
       writeln(ac,pole[5]);
            end;
       if ca = 15 then
           begin
       writeln(ac,pole[6]);
         end
         else
       writeln('Pre ukončenie napíš "Koniec", pre pokračovanie stlačte klávesu ENTER.');
        readln(Koniec);

     end;
     until (Koniec = 'Koniec');
 end.

ja vetsinou delal neco jako:

 (jen s lepsim vyrabenim retezce nez je tady ale jako zjednoduseni by to melo stacit + to bude mit asi trosku problemy se zapornejma cislama :))

string prevod;
integer cislo,tmp;

prevod :='';
while cislo > 0 do begin
  tmp := cislo & $0F;   (* nebo take   tmp := cislo mod 16; *)
  cislo := cislo shr 4; (* stejne jako  cislo := cislo / 16 *)

  if tmp>9 then begin
    prevod := chr( tmp + ord('A') ) + prevod;
  end else begin
    prevod := chr( tmp + ord('0') ) + prevod;
  end;
end;