- Az Apple iPadOS-t is megrendszabályozza az EU
- Milyen routert?
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Mindenki AI-t akar, már 2025-re is eladták a HBM chipeket
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Az USA nem akarja visszafogni Kína növekedését
- Ubiquiti hálózati eszközök
- Mikrotik routerek
- Milyen NAS-t vegyek?
- Aliexpress tapasztalatok
Új hozzászólás Aktív témák
-
oleslie
aktív tag
válasz boros.denes #1913 üzenetére
csak tippelek, de itt egy rövid idézet a d7 helpjéből :
Delphi syntax:
procedure Dec(var X[ ; N: Longint]);
Description
In Delphi code, Dec subtracts one or N from a variable.kezdetnek átnevezném a 'dec' nevü változót
aztán ..
bin vs bin(i), char típussal mit akarsz szorozni? chr(49) = '1' , valamit megszorzol 49-el?[ Szerkesztve ]
Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem
-
oleslie
aktív tag
válasz boros.denes #1913 üzenetére
var b:longint
b:=0;
for i:=1 to length(bin) do
if (bin[length(bin)-(i-1)]='1') then
b:=b or (1 shl (i-1));[ Szerkesztve ]
Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem
-
oleslie
aktív tag
azért tudom még fokozni
function bin2dec(bin : string) : longint;
asm
push eax
push ebx
xor ebx,ebx
@loop0:
rol ebx,1
cmp byte ptr [eax],$31
jnz @zerobit
or ebx,1
@zerobit:
inc(eax)
cmp byte ptr [eax],0
jnz @loop0
mov result,ebx
pop ebx
pop eax
end;
ez is helyes (bár ez nézőpont kérdése) eredményt ad (0x42)[ Szerkesztve ]
Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem
-
oleslie
aktív tag
létezik az 'id' névvel hivatkozott paraméter?
CV from d7 help / tparameters / methods / addparameter
with ADOStoredProc1.AddParameter do begin
DataType := ftString;
..Direction := pdInput;
Value := 'malathion';
end;Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem
-
oleslie
aktív tag
bevallom, lustaságom 6ártalan. Én rádobtam a formra, és az object inspector-ban beálllítottam ami kellett.
D7 & ADO > VFP7 .dbf fájlokban túrok ígyarufindquery.Parameters.ParamByName('brmin').Value:=brmin;
arufindquery.Parameters.ParamByName('brmax').Value:=brmax;
arufindquery.Prepared:=true;
arufindquery.Open;arufindquery.SQL :
SELECT ar1.azonosito as aruid FROM ar1
JOIN arunet ON arunet.azonosito=ar1.azonosito
WHERE BETWEEN(ar1.eladb, :brmin, :brmax)Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem
-
oleslie
aktív tag
query1:=TADOQuery.Create(nil);
query1.Connection:=ADO_fromprovimax;
query1.Active:=false;
query1.ParamCheck:=false;
query1.SQL.Clear;
query1.SQL.Add('SELECT vevox.azonosito as vid, vevox.nev as vnev, vevojel.datum as vdatum FROM vevojel');
query1.SQL.Add('JOIN vevox ON vevox.azonosito=vevojel.azonosito');
query1.SQL.Add('WHERE vevox.thelyseg=":vhely" AND vevox.adoszam="" AND vevox.fizmod="Készpénz"');
query1.SQL.Add('ORDER BY vdatum desc');
with query1.Parameters.AddParameter do begin
DataType:=ftString;
Name:='vhely';
value:='Budapest';
end;a te módszereddel (1922) hibát ad, így működik. ne kérdezd miért
[ Szerkesztve ]
Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem
-
oleslie
aktív tag
próbáltam, nekem működik. Ha mutatnál vmi kódrészletet, hogyan próbálod ...
StringGrid1.Cells[1,1]:='c1r1';
StringGrid1.Cells[1,2]:='c1r2';
StringGrid1.Cells[3,3]:='c3r3';
showmessage(stringgrid1.Cells[1,2]);
esetleg próbáld meg, hogy feldobsz a formra egy tmemo -t, és abba beírod a selcol/selrow értékeket, hogy mit próbál kiolvasni a programod, vagy a kiolvasás sorára beállítasz egy töréspontot, és megnézed mi a változók értéke (azt akarja kiolvasni, amit szerinted kell neki? biztos van érték a kiolvasni akart cellában? próbáltad "kézzel" /ctrl+f7/?)[ Szerkesztve ]
Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem
-
oleslie
aktív tag
mutasd a kódot ahol
- a változókat deklarálod
- cellának értéket adsz (ha változóból töltöd fel akkor azt is ahol a cella értékadására használt változó beállítódik)
- a selcol/selrow értéke beállítódik
- próbálod kiolvasni a cella tartalmátaz én példámnál maradva. Ha értéket adsz abszolút módon (grid.Cells[1,1]="asd"; ), majd azt egy showmessage -val kiolvasod (showmessage(grid.Cells[1,1]); ), mit mutat?
[ Szerkesztve ]
Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem