Új hozzászólás Aktív témák

• #1952 oleslie aktív tag D@ni88 #1951

  Új Válasz 2013-04-15 11:35:06 #1952

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz D@ni88 #1951 üzenetére

  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át

  az é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?

• #1950 oleslie aktív tag D@ni88 #1949

  Új Válasz 2013-04-14 20:34:59 #1950

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz D@ni88 #1949 üzenetére

  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/?)

• #1945 oleslie aktív tag TAZ155 #1944

  Új Válasz 2013-03-22 00:56:23 #1945

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz TAZ155 #1944 üzenetére

  0.039 nem egész (int) szám, te pedig akként akarod értelmeztetni. strtofloat a barátod, de ezt zka megírta korábban.

• #1942 oleslie aktív tag TAZ155 #1941

  Új Válasz 2013-03-22 00:09:05 #1942

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz TAZ155 #1941 üzenetére

  1., mi a hibaüzenet?
  2., most nem indítok ezért delphi -t, de int x int != float

• #1929 oleslie aktív tag D@ni88 #1928

  Új Válasz 2012-12-08 21:27:47 #1929

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz D@ni88 #1928 üzenetére

  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

• #1927 oleslie aktív tag D@ni88 #1926

  Új Válasz 2012-12-08 12:37:23 #1927

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz D@ni88 #1926 üzenetére

  Pedig van 1 lényeges különbség kettőnk megoldása között.
  Én a szerkesztővel hoztam létre az ojjektumot, míg te futásidőben.

• #1925 oleslie aktív tag D@ni88 #1924

  Új Válasz 2012-12-08 00:53:26 #1925

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz D@ni88 #1924 üzenetére

  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 így

  arufindquery.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)

• #1923 oleslie aktív tag D@ni88 #1922

  Új Válasz 2012-12-07 23:26:44 #1923

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz D@ni88 #1922 üzenetére

  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;

• #1921 oleslie aktív tag zka67 #1918

  Új Válasz 2012-12-07 20:37:59 #1921

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz zka67 #1918 üzenetére

  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)

• #1919 oleslie aktív tag zka67 #1918

  Új Válasz 2012-12-07 09:00:01 #1919

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz zka67 #1918 üzenetére

  66 (0x42), ami meg is felel a valóságnak, mert a 2,3,5 nem fér bele a kettes számrencerbe

• #1917 oleslie aktív tag zka67 #1916

  Új Válasz 2012-12-06 03:11:39 #1917

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz zka67 #1916 üzenetére

  ez így nem ér ... adsz neki egy működőt
  legalább kicsit törhetné a fejét vmi apróságon
  modjuk az enyém is működik ... akkor nem szóltam

• #1915 oleslie aktív tag boros.denes #1913

  Új Válasz 2012-12-06 00:11:13 #1915

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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));

• #1914 oleslie aktív tag boros.denes #1913

  Új Válasz 2012-12-05 23:56:12 #1914

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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?

• #1912 oleslie aktív tag sanzi89 #1906

  Új Válasz 2012-11-08 11:20:26 #1912

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz sanzi89 #1906 üzenetére

  BDE / TDatabase esetén van egy loginprompt paraméter. Alaphelyzetben engedélyezett (true). Én átállítanám ...

Új hozzászólás Aktív témák