[ strike @ 26.12.2003. 12:09 ] @
koji kod je, da kad ja kliknem na odredeni "button", da mi program isprinta (na papir) samo vrijednosti koje su u poljima (objektima) "EDIT"

imam ovaj kod

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components.ClassName='TEdit' then
with TEdit(FindComponent(Form1.Components.Name)) do
s:=s+#13#10+Text;
end;
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);
end;


ali ne znam sto ide umjesto "NESTO".

zna netko?
[ morlic @ 27.12.2003. 09:55 ] @
Probaj ovaj kod...Radi se o direktnoj stampi, tj. stampac stampa samo tekst koristeci ugradjene fontove. Ukoliko zelis da menjas fontove i velicinu papira moras da imas escape sekvence za taj stampac.

Code:

Var
 f : TextFile;
begin
     AssignFile(f, 'LPT1:');
     Rewrite(f);
     try
       WriteLn(f, 'Jedna linija teksta');
     finally
       CloseFile(f);
     end;
end;

[ morlic @ 27.12.2003. 10:04 ] @
...da dodam komentar u vezi koda koji imas

Code:

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TEdit) then
with (Form1.Components[i] as TEdit) do
s:=s+#13#10+Text;
end;
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);
end;
[ strike @ 29.12.2003. 16:29 ] @
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);


daj pi pojasni, kaj stavljam umjesto NESTO


imate pivo ako mi to kazete!! ;)
[ morlic @ 29.12.2003. 21:13 ] @
Pa skroz sam pogresio kad sam prosto iskopirao tvoj kod. Namera mi je bila samo da ispravim nacin na koji ides kroz sve edit box-ove na formi, ali sam greskom iskopirao i onaj deo koda koji se tice stampanja. Dakle nesto je samo naziv promenjive moze da bude i "Stampac", ali evo kako izgleda ona prva varijanta samo ispravljena:

Code:

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TEdit) then
with (Form1.Components[i] as TEdit) do
s:=s+#13#10+Text;
end;
AssignFile(nesto, 'LPT1:');
Rewrite(nesto);
try
  Writeln(nesto, s);
finally
  System.CloseFile(nesto);
end;
end;

[ strike @ 29.12.2003. 22:05 ] @
prijatelju, dal moram jos koju komponentu staviti za ispis??? ili za printer?
[ strike @ 29.12.2003. 22:50 ] @
stavil sam komponentu, printa, ali sve jedno ispod drugoga, ali meni treba da mi EDITE ispise bas na tim mjestima kamo sam ih ja stavio na formu!
[ morlic @ 30.12.2003. 07:03 ] @
U tom slucaju koristis unit Printers (ovo sam prepisao nisam ja pisao):

Code:

Uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  c: TControl;
  i: Integer;
  topX, topY: Integer;
begin
  printer.begindoc;
  try
    { Scale printer to screen resolution. }
    SetMapMode( printer.canvas.handle, MM_ANISOTROPIC );
    SetWindowExtEx(printer.canvas.handle,
                   GetDeviceCaps(canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(canvas.handle, LOGPIXELSY),
                   Nil);
    SetViewportExtEx(printer.canvas.handle,
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSY),
                   Nil);
    topX := 10;
    topY := 10;
    for i:= 0 to controlcount-1 do begin
      c:= controls[i];
      If c Is TWinControl Then
        TWinControl(c).paintto( printer.canvas.handle,
                                c.left + topX,
                                c.top + topy );
    end;
  finally
    printer.enddoc;
  end;
end;

[ strike @ 30.12.2003. 11:21 ] @
Uses Printers;

tu mi gresku javlja, tko zna zasto??
[ morlic @ 30.12.2003. 18:22 ] @
Kakvu gresku, nisam vidovit, moras da napises i tacnu poruku :)?
[ strike @ 30.12.2003. 18:38 ] @
nisi??? mislio sad da jesi... :)

evo sto kaze

[Error] AO.pas(163): Declaration expected but 'USES' found
[ morlic @ 30.12.2003. 20:29 ] @
sintaksna greska:

Uses treba staviti pri vrhu unit-a

Code:

unit AO;

interface

Uses Printers;


Samo jedan Uses smes da imas u interface delu unita (drugi u implementation). Ukoliko treba da stavis vise unita u uses samo ih razdvoj zarezom:

Code:

unit AO;

interface

Uses Classes, SysUtils, Printers;


Uses govori kompajleru da taj pas fajl (AO.pas) koristi kod iz odredjenih postojecih pas fajlova. Nazivi fajlova se navode bez ekstenzije.

[ strike @ 30.12.2003. 21:02 ] @
radi, radi!!!
jeee

e, imam jos jedan problem

isao sam program raditi sa "zadnje strane", napravio sam formu (nazovimo je
forma prva)(napokon) kako mi treba, a sad bi trebao napraviti jednu
predformu, koja bi imala MENI sa otvori, zatvori, pronadi, ispisi, spremi, i
izlaz; te kad bi se odabralo OTVORI, otvorila bi se forma prva, te kad bi
odabrao spremi sejvala bi se forma prva pod imenu kojim ja odaberem...
itd...

kuzite??

e, tko je spreman pomoci???

HVALA


[Ovu poruku je menjao strike dana 31.12.2003. u 15:47 GMT]
[ strike @ 30.12.2003. 21:05 ] @
hvala Ti na objasnjenjima dodatnim!!!!
[ emtyy^^2004 @ 15.06.2004. 16:06 ] @
Sta radite hteo bih da vas zamolim ako mozete da mi pomognete ok Pascala..
E ovako, voleo bih ako bi neko imao nekakav primer igrice koji je uradzen u Pascalu pa ako mozete da mi to stavite na vas ovaj sajt ili ako je lakse da mi posaljete na email
E-mail:[email protected]
Unapred Hvala????
Pa da i ja pokusam da je uradim mislim malo je prepravim a prije toga video bih kakva je igrica...
[ morlic @ 19.06.2004. 07:37 ] @
Nazalost nemam ni jednu igricu u pascal-u. Predji u Delphi, mislim da je rad u dos-u iluzoran.
[ Dusan Aleksic @ 19.06.2004. 14:47 ] @
Citat:
emtyy^^2004:Sta radite hteo bih da vas zamolim ako mozete da mi pomognete ok Pascala..
E ovako, voleo bih ako bi neko imao nekakav primer igrice koji je uradzen u Pascalu pa ako mozete da mi to stavite na vas ovaj sajt ili ako je lakse da mi posaljete na email
E-mail:[email protected]
Unapred Hvala????
Pa da i ja pokusam da je uradim mislim malo je prepravim a prije toga video bih kakva je igrica...


Imas negde na ovom forumu primer tetrisa u paskalu (rekao bih da je to bio tetris), potrrazi ga po starim temama.
[ neuromancer @ 19.06.2004. 15:23 ] @
evo jedne pascal igrice,
Odnosno legendarni MARIO,
ovo je naravno source
http://home.planet.nl/~mike.wiering/mario/mariosrc.zip
poz