skyzoframe[hun]

It may not be too late. The example does not work because of the missing codeck pack. the solution: https://stackoverflow.com/questions/28910428/tmediaplayer-error-unsupported-media-file By Jim McKeeth the codeck.: https://www.codecguide.com/download_kl.htm Now all examples work fine. ..\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\App Tethering\MediaPlayer\ and even the VideoPlayback sample works.

Hi all. How to solve, one kind of irrational number storage in float? (For example Pi value) ( second reason. I want to solve a movement over an axis, in the most precious way over an help of pascal programing.) Regards k.z.

I think, the question already answered. Thanks, now i know what I have to do..

I want 6 axis movement of one kind of robot. And I have a lot of irracional value. That has to be stored in memory. (Float value)

Should I have to check every coordinate value in every runtime because of the main coordinate array what I use? I am confused right now...

Please give me one kind of example.

if I slice 3D into 2D surface. What do you mean about [k*2^n] What do you mean?

Many irrational numbers must be used in 3D space. my problem is that it has to be stored in memory. usually in float value. which causes an error if I work in six axes

https://en.m.wikipedia.org/wiki/Cube Here check the formulas thread

Cube face diagonal or cube space diagonal. Irracional numbers also. (Cube edge 1 integer)

I want to adapt to the maximum software possibilities within the limits of Pascal. The hardware constans in this case.( One kind of parameter)

I got one MASTER coordinate system. After that 6 slave. That depends of each other in one kind of linear way. My problem is the first axis movement. (Because of reverse engineering)

I want 0.1 micron precious movement over 6axis robot.

https://www.packtpub.com/

I use Interbase, and I require these files on the client side. Install if not installed already.: vcredist_x64.exe or vcredist_x86.exe The main folder of the YourPrg.exe ibclient64.dll or gds32.dll.

Yes , you are right.

I mean, before you put anything into the array, you have to clear the record, then fill the record. If you don't do so, then there are the opportunity to create redundancy.

In these case, maybe you need one more row. LMyRecordWithValues := default (TMyRecordWithValues);

The best solution for converting the query into an array was developed by Pawel Glowacki in Chapter 9 of the Expert Delphi book. I use the same technique all the time, except I do everything at runtime. ToDoListSQLite.7z

@Rollo62 Do you have any solution for the problem? https://docwiki.embarcadero.com/CodeExamples/Sydney/en/FMXTCanvasFillFunctions_(Delphi)

Now it has. https://docwiki.embarcadero.com/CodeExamples/Alexandria/en/SelectDirectory_(Delphi)

🙂

Hello, I need advice from all of you. I know I am not the only one who has got these problems. Maybe someone has already solved it. 1.-How to handle undo and redo in code? 2.-What are the best strategies for handling it in the relational databases (InterBase and Firebird)? best wishes, k.z.

The first step is solved, by using the update flag, creating a negative and positive ID with one trigger when inserting anything into the database. // interbase database // before insert AS declare variable COUNT_ID INTEGER;declare variable I INTEGER;/**/ begin COUNT_ID=0; i=0; new.TIME_CREATE=Current_TimeStamp; /* UPDATE_KEY -> default False! */ if (new.UPDATE_KEY=False) then begin /*when create*/ if (not exists( select * from MGR_SZABASZAT where ID>-1)) then begin new.ID=0; end else begin select count(*) from MGR_SZABASZAT where ID>-1 into :COUNT_ID; i=:COUNT_ID; WHILE (i>0) DO begin if (not exists (select ID from MGR_SZABASZAT where ID=:i)) then begin new.ID=:i; i=0; end else i=i-1; end /* WHILE (i>0) DO*/ end /*if (not exists( select * from MGR_SZABASZAT)) then*/ end else begin /*update*/ if (not exists( select * from MGR_SZABASZAT where ID<0)) then begin new.ID=-1; end else begin select count(*) from MGR_SZABASZAT where ID<0 into :COUNT_ID; i=:COUNT_ID+1; i=i*-1; WHILE (i<0) DO begin if (not exists (select ID from MGR_SZABASZAT where ID=:i)) then begin new.ID=:i; i=0; end else i=i+1; end /* WHILE (i<0) DO*/ end /*if (not exists( select * from MGR_SZABASZAT)) then*/ end end