DaniWeb IT Discussion Community - Pascal and Delphi

Copy all record's contents to typed pointer?

Zolookas — Tue, 07 Oct 2008 16:29:56 GMT

Hi, I have a question. Is it possible to copy all contents from record to typed pointer which has same items? Example here:

program linked_list_queue;

type queue = ^myrecord;

    myrecord = record

        data: integer;

        otherdata: string;

        datadatadata: char;

        next: queue;

    end;

 

const head = nil;

    tail = nil;

 

procedure add(argument: myrecord); {adds data to queue}

var mypointer: queue;

begin

    new(mypointer);

    {Question: How can I move data from argument to mypointer? Is it possible?}

    {...}

end;

If yes, how can i do it?

Pascal loop error

Lone | Wolf — Sun, 05 Oct 2008 12:31:01 GMT

hello, I'm new to the language and so far as I can tell this should work but it isnt. Sorry its probably just a newb mistake but i've spent hours on this silly error (and used search).

var

  call_start, call_length : integer;

  discount, cost: real;

  answer: char;



 const

  normal_price = 40;

  VAT = 0.175;



begin

  repeat                                       //repeat 1

    writeln ('please input call start time in hours');

    readln (call_start);

    until (call_start >= 0) or (call_start <24);

      repeat                                  //repeat 2

        writeln ('please input call length');

        readln (call_length);

      until call_length > 0;                  //repeat 2 end

    discount := 1;

    if (call_start > 18) then discount := 0.5

    else if (call_start > 13) then discount := 0.8;

    cost := call_length * normal_price * discount * VAT;

    if call_length > 60 then cost := cost * 0.8;

    writeln ('the price for your call was', cost);

      repeat                                   //repeat 3

        writeln ('do you wish to continue (Y/N)');

        readln (answer);

      until (answer = 'Y') or (answer = 'N');   //repeat 3 end

    {it wants the end here for some reason but that excludes loop}

  until (answer = 'N');                       //repeat 1 end

end.





[Error] Project2.dpr(30): 'END' expected but 'UNTIL' found

dev pascal question

lytre — Fri, 03 Oct 2008 18:26:47 GMT

can i use graphics in my programs with dev pascal?

Damn Asterisk Wont go down X.x

codeforfun — Fri, 03 Oct 2008 02:13:48 GMT

Ok, this Program was supposed to make the asterisk go down a line every 1 second and to be able to move right and left, It moves right and left but it doesn't go down. For Those wondering, yeah im trying to make an arkanoid or something like that... this is just a test not the game project.

{*** Escrito por Fernando Agustin Monti ***}

{************ Padron 90449 ****************}

Program Ironman;



Uses crt;



var

  iTime,iPosX,iPosY:integer;

  cKey:char;

  bGameOver:boolean;

const

  Time_Key = 100;

  X_Screen = 79;

  Y_Screen = 24;

  A_r = #26;

  A_l = #27;



Begin

  ClrScr;

  iPosX := x_Screen div 2;

  iPosY := 2;

  bGameOver := False;

  WHILE not bGameOver DO

    Begin

      Gotoxy (iPosX,iPosY); write('*');

      Delay (Time_Key);

      Gotoxy (iPosX,iPosY); write(' ');

      iTime := iTime + Time_Key;

      IF keypressed THEN

        Begin

          cKey := readkey;

          IF (cKey = A_r) AND (iPosX <= X_Screen) THEN inc(iPosX)

          ElSE IF (cKey = A_l) AND (iPosX > 1) THEN dec(iPosX)

        END;

      IF (Time_Key > 1000) THEN

        Begin

          inc(iPosY);

          iTime := 0;

          bGameOver := iPosY = Y_Screen;

        END;

    END;

END.

Need help with Delphi code

sonya795 — Thu, 02 Oct 2008 12:02:49 GMT

Hello everyone,
I need some assistance in finding an error in my Delphi code. (I am new to the Delphi programming). I am using a Delphi application to build an excel spreadsheet.
When a part_number is entered for the first time(assuming it exists in db) application always runs , the second time the spreadsheet comesback with no data. Like my code is skipped ( while QRY.eof = False do -line is skipped). PLease help, below is my code.
/////////////////////////////////////////////////////////////////

procedure TForm1.BuildButtonClick(Sender: TObject);

var

SheetName: String;

x:      Integer;

y:      Integer;

Sheet:  Variant;

ColumnRange: Variant;

fldcnt: Integer;

begin

///////////////////////////



  QryC.Close();

  QryC.SQL.Clear();

  QryC.SQL.Add('select item_no from ITEM_MASTER where item_no =trim(:v_item)');

  QryC.Parameters.ParamByName('v_item').Value := PartNumberEdit.Text;

  QryC.Open();



  if QryC.RecordCount <> 1 then

         begin

        ShowMessage('Couldn''t find part number ' + PartNumberEdit.Text + '.');

        PartNumberEdit.text :='';

        PartNumberEdit.SetFocus();

        end

   else if QryC.RecordCount = 1 then

   begin

// Execute the stored procedure to prep the query.

        Proc.ProcedureName := 'CostAnalyzerViewBuild_KANBAN';

        Proc.Parameters.CreateParameter('v_partnumber', ftString, pdInput, 24, 0);

        Proc.Parameters[0].Value := PartNumberEdit.Text;

        Proc.ExecProc();

        Proc.Parameters.Clear();



        QRY.Close();

        QRY.Open();

        gauge.Visible := True;

        gauge.Min := 0;

        gauge.Position := 0;

        gauge.Max := QRY.RecordCount;



        //if VarIsEmpty(XLApp) then

        XLApp:= CreateOleObject('Excel.Application');

        //XLApp.Visible := True;

        XLApp.Workbooks.Add(xlWBatWorkSheet);

        SheetName := 'BOM Summary ' + IntToStr(SheetNumber);

        XLApp.Workbooks[1].WorkSheets[1].Name := SheetName;

        Sheet := XLApp.Workbooks[1].WorkSheets[SheetName];

        ColumnRange := XLApp.Workbooks[1].WorkSheets[SheetName].Columns;

        fldcnt := QRY.FieldDefs.Count; // the number of columns in the result set



        for y := 0 to fldcnt - 1 do

             begin



                XLApp.Workbooks[1].Worksheets[1].Range['A1', 'A1'].EntireColumn.NumberFormat := '#,###,###,##0.0#_);[Red](#,###,###,##0.0#_)';

                XLApp.Workbooks[1].Worksheets[1].Range['B1', 'B1'].EntireColumn.NumberFormat := '#,##0_);[Red](#,##0_)';

                XLApp.Workbooks[1].Worksheets[1].Range['C1', 'C1'].EntireColumn.NumberFormat := '#,##0_);[Red](#,##0_)';

                XLApp.Workbooks[1].Worksheets[1].Range['D1', 'D1'].EntireColumn.NumberFormat := '#,##0_);[Red](#,##0_)';

                XLApp.Workbooks[1].Worksheets[1].Range['E1', 'E1'].EntireColumn.NumberFormat := '#,##0_);[Red](#,##0_)';

                XLApp.Workbooks[1].Worksheets[1].Range['F1', 'F1'].EntireColumn.NumberFormat := '#,##0_);[Red](#,##0_)';

                XLApp.Workbooks[1].Worksheets[1].Range['G1', 'G1'].EntireColumn.NumberFormat := '#,###_);[Red](#,###)';



                ColumnRange.Columns[y+1].AutoFit;

                Sheet.Cells[1, y+1] := QRY.FieldDefs.Items[y].Name;

               end;



        x := 2;

       while QRY.eof = False do



        begin

                for y := 0 to fldcnt - 1 do

                begin

                        Sheet.Cells[x, y+1] := QRY.Fields.Fields[y].AsString;

                end;

                x := x + 1;

                // NEW SHEET?

                if x >= 65530 then

                begin

                        for y := 0 to fldcnt - 1 do

                        begin

                                ColumnRange.Columns[y+1].AutoFit;

                        end;

                        x := 2;

                        SheetNumber := SheetNumber + 1;

                        SheetName := 'BOM Summary ' + IntToStr(SheetNumber);

                        XLApp.Workbooks[1].Sheets.Add();

                        XLApp.Workbooks[1].Sheets[1].Name := SheetName;

                        Sheet := XLApp.Workbooks[1].Sheets[1];

                        ColumnRange := Sheet.Columns;

                        for y := 0 to fldcnt - 1 do

                        begin

                                ColumnRange.Columns[y+1].NumberFormat := '#,###,###,##0.0#_);[Red](#,###,###,###.00)';

                                ColumnRange.Columns[y+1].AutoFit;

                                Sheet.Cells[1, y+1] := QRY.FieldDefs.Items[y].Name;

                        end;

                  end;

                Application.ProcessMessages();

                gauge.Position := gauge.Position + 1;

                QRY.Next();

                PartNumberEdit.Text :=' ';

                PartNumberEdit.SetFocus();

        //end;

        for y := 0 to fldcnt - 1 do

        begin

                ColumnRange.Columns[y+1].AutoFit;

        end;

        end;

        Beep();

        QRYC.Close();

        QRY.Close();



        XLApp.Visible := True;

        SheetNumber := SheetNumber + 1;

        gauge.Position := 0;

        gauge.Visible := False;



       end;

 end;

///////////////////////////////////////////////////////
Thank you in advance,
Sonya

Getting started with Pascal on Mac OS X

Bob Kolb — Thu, 02 Oct 2008 01:12:26 GMT

I need help getting going with Pascal on a Mac. (I have considerable amateur experience on Delphi on a PC.)

Two possibilities:
1. I can hire someone with the knowledge to consult and get me going--Install compiler, setup IDE, relate to XCODE (whatever that is) and so on. I live in downtown Chicago or over-the-phone might work too.

2. Alternatively can someone point me to specific instructions about what files are needed, how to set them up and how to open an ide and run a "hello world" program. I could take it from there.

Thanks,

Bob Kolb

Delphi sql delete

taineechan — Wed, 01 Oct 2008 14:43:00 GMT

Hi All

I want to delete records from a table. I'm using the following query:

adqdelete.active := false;

adqdelete.sql.add('delete from stalls');

adqdelete.sql.add('where stall_name =');

adqdelete.sql.add(edtDeleteStalls.Text);

adqdelete.active:=True;

This gives a syntax error. does anyone know what I'm doing wrong?

Thanks for your time
Tai

How to download files with delphi !!!

vanias — Wed, 01 Oct 2008 11:28:21 GMT

Can anyone help me to do this !!!
I want to download a file (for exaclty photo file) from a web page how i can do this through delphi?????

Looking to hire a Delphi/C++ Programmer

FreddyJ — Tue, 30 Sep 2008 21:40:17 GMT

I am looking to hire a Delphi Programmer for a Project supporting a Vista based Imaging System. Part-time work is OK. Does anyone have any suggestions as to where I might look? Thanks in advance.

Neural Networks with Delphi

josejp1 — Tue, 30 Sep 2008 18:40:02 GMT

Interesting post about Neural Networks with the component "TFFNN"

http://delphimagic.blogspot.com/2008...eural-net.html

In Spanish Language

Unbelievably simple question

Bob Kolb — Tue, 30 Sep 2008 15:42:05 GMT

I am coding a unit in Delphi 2007 and everything has been working fine. Suddenly, pressing the "return" key merely moves the cursor to the next line instead of throwing a new line I switch to another program (word processor) and that program works fine. I have rebooted, but that doesn't solve the problem.

It seems I must have accidentally set something in the Delphi software to make this happen. Please help me out and tell me how to get my line feeds back!

Thanks,

Bob

level counter in a label... help pls

Ravenn — Mon, 29 Sep 2008 20:27:13 GMT

hey there, i'm new at delphi, at my first prog actually. Been doing c/c++ for a while.
The prog is supposed to be simple game, and i need a level counter. I've strayed a bit from the tutorial i'm using and now when i run it the number in the label turns to a black rectangle and nothing works anymore, can only close with "right click->close".
can someone pls set me on the right path here?:-/
here's the code

unit game1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, jpeg;



type

  TForm1 = class(TForm)

    Timer1: TTimer;

    bot1: TShape;

    bot2: TShape;

    Button1: TButton;

    Panel1: TPanel;

    Button2: TButton;

    Leveltimer: TTimer;

    Label1: TLabel;

    procedure Timer1Timer(Sender: TObject);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure LeveltimerTimer(Sender: TObject);

  

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);

var overlay:trect;

begin

  if bot1.left>bot2.left then bot1.Left:=bot1.Left-1;

  if bot1.left
  if bot1.top>bot2.top then bot1.top:=bot1.top-1;

  if bot1.top


  //this part is collision detection

  if intersectrect(overlay,bot1.BoundsRect,bot2.BoundsRect) then

    begin

      timer1.Enabled:=false;

      leveltimer.Enabled:=false;

      showmessage ('you are dead');

    end;

end;

//procedure for moving your bot and reseting possition in case of death

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

 if timer1.Enabled=true then

 begin

  bot2.Left:=x-bot2.Width div 2;

  bot2.Top:=y-bot2.Height div 2;

 end

 else

  begin

   sleep(1000);

   bot2.left:=0;

   bot2.top:=0;

   bot1.Left:=0;

   bot1.Top:=100;

  end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  timer1.Enabled:=True;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  timer1.Enabled:=false;

end;



procedure TForm1.LeveltimerTimer(Sender: TObject);

  var a:char;

begin



  //level counter

  if timer1.enabled=true then leveltimer.Enabled:=true;

  label1.tag:=label1.tag+1;

  a:=chr(label1.tag);

  label1.caption:=a;

end;



end.

MathML and Delphi

pfemia — Mon, 29 Sep 2008 12:14:25 GMT

Hello,
I need to transform mathematical expressions from MathML (as a part of an
XML file) to plain text format (in the Pascal or C fashion) and the reverse
(from Pascal to MathML) form my application in Delphi.
Does anybody know any component or routine to do this?
Thanks in advance

MarhMK and Delphi

pfemia — Mon, 29 Sep 2008 12:13:35 GMT

File of Type

espSquall — Thu, 25 Sep 2008 14:57:33 GMT

The declaration of the type is:

type

  TMediaLibrary = record

    Title:string[30];

    TrackNo:integer;

    Artist:string[30];

    Album:string[30];

    Year:string[4];

    Genre:string[30];

    Comment:String[30];

    Directory:string;

  end; 



var  SongInfo: TMediaLibrary;

and the file implementation of it is here:

procedure TForm1.Button1Click(Sender: TObject);

var

  SongFile:string;

  MediaLibrary: file of TMediaLibrary; <<
begin

.

.

.

.

  AssignFile(MediaLibrary, 'C:\Program Files\toMedia Player\data\libr.db');

  rewrite(MediaLibrary);

  Write(MediaLibrary, SongInfo);

  CloseFile(MediaLibrary);

end;

My problem is that when i try to compile the code it gives the error "Type TMediaLibrary needs finalization - not allowed in file type". This is my first post on any coding community site as most problems have already been solved already, but this has stumped me and google.

Thanks alot for any help.