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

• #1531 g4dg3t senior tag Rolly #1530

  Új Válasz 2007-04-06 11:18:17 #1531

  Ú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

  

  g4dg3t

  senior tag

  válasz Rolly #1530 üzenetére

  Sender parameter megadja a hivo objektumot, tehat (Sender as TEdit).xxx formaban el tudod erni a peldany osszes property-jet es metodusat.
  
  (Sender as TEdit).Name-el kapod meg a peldany nevet...ezt hasznalhatod ha el akarod agaztatni.
  pl.:
  
  ...
  if (Sender as TEdit).Name = 'Size' then
  ...
  

• #1529 g4dg3t senior tag Rolly #1528

  Új Válasz 2007-04-05 23:42:52 #1529

  Ú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

  

  g4dg3t

  senior tag

  válasz Rolly #1528 üzenetére

  Hozzakotheted ugyanazt az egy metodust az osszes Edit OnKeyPress esemenyehez.
  A kovetkezo sor biztositja, hogy mindig azt az objektumot vizsgalja ami kivaltotta az esemenyt.
  tmpNum:=StrToIntDef((Sender as TEdit).Text + Key,0);

• #1525 g4dg3t senior tag Rolly #1523

  Új Válasz 2007-04-05 11:35:40 #1525

  Ú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

  

  g4dg3t

  senior tag

  válasz Rolly #1523 üzenetére

  celszeru beszerezni egy normalis NumericEdit komponenst, de ha nem akarsz kulso stuffot es tenyleg nincs szukseged mas ficsorre akkor a TEdit.OnKeyPress esemenyet kezeld le az alabbi koddal:
  
  const EDITMAXVALUE = 10000;
  var tmpNum: integer;
  begin
  if Key in ['0'..'9'] then begin
  tmpNum:=StrToIntDef((Sender as TEdit).Text + Key,0);
  if tmpNum > EDITMAXVALUE then Key:=#0;
  end
  else
  if Key <> Char(VK_BACK) then Key:=#0;
  end;
  
  
  [Szerkesztve]

• #1442 g4dg3t senior tag Rolly #1441

  Új Válasz 2007-01-16 16:32:34 #1442

  Ú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

  

  g4dg3t

  senior tag

  válasz Rolly #1441 üzenetére

  úgy szerinted nem jó ha poszal megkeresem az első pontot, s index-1től kopizok?
  Ha elofeltetelkent kikothetjuk, hogy a keresett resz elott nem fog ''.'' szerepelni a string-ben, akkor jo lehet ugy is. Tehat ''szin.ize bela.bigyo 0.0 0.0 0.0'' sornal gondot okozna.
  
  
  
  Jol ertem, hogy a Pos fv-t belepesi feltetelkent hasznalod? Az igy vegtelen ciklust kell, hogy okozzon. Postold azt a while ciklust, este megneznem.
  
  [Szerkesztve]

• #1440 g4dg3t senior tag Rolly #1439

  Új Válasz 2007-01-16 10:38:35 #1440

  Ú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

  

  g4dg3t

  senior tag

  válasz Rolly #1439 üzenetére

  legegyszerubben Pos, PosEx es Copy fuggvenyekkel (elofeltetel hogy a stringben mindig a 3. space-tol kezdodjek a kerdeses reszlet):
  
  var
  Ind: integer;
  OutStr: string;
  ...
  Ind:=Pos(#32,Sor);
  if Ind > 0 then Ind:=PosEx(#32,Sor,Ind + 1);
  if Ind > 0 then Ind:=PosEx(#32,Sor,Ind + 1);
  if Ind > 0 then OutStr:=Copy(Sor,Ind + 1,Length(Sor) - Ind)
  else OutStr:='';
  ...
  
  Pos es PosEx fv helyett ciklust is szervezhetsz...kinek mi elegansabb.
  
  [Szerkesztve]

• #1096 g4dg3t senior tag mandrake83 #1095

  Új Válasz 2006-01-23 10:07:26 #1096

  Ú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

  

  g4dg3t

  senior tag

  válasz mandrake83 #1095 üzenetére

  A gond az h lepteto ciklust hasznalsz es a cikluson belul torlod az elemet.
  
  Ha peldaul a 2. korben (m=1) torlod a 2. elemet akkor az utolso korben (m=2) a
  if (listbox4.selected[m]) and (listbox4.items[m]='valami') feltetel hibat fog okozni, mivel az Items[m] (m=2) kifejezessel kimutatsz a tombbol (ugyebar a tomb az elozo torles miatt (n-1) elemszamu lett).
  
  Vagy atszervezed a ciklusod, vagy kiegeszited a felteteled egy plussz vizsgalattal igy:
  ...
  if (m < Listbox4.Items.Count) and (Listbox4.Selected[m]) and (Listbox4.Items[m] = 'valami') then begin
  ...
  

• #801 g4dg3t senior tag g4dg3t #800

  Új Válasz 2005-05-18 09:36:39 #801

  Ú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

  

  g4dg3t

  senior tag

  válasz g4dg3t #800 üzenetére

  
  ooo ize
  
  Epp most latom a sajat kodomban...a Prepare-t meg a ParamByName metodusok elott szokas hivni! Sry a pontatlansagert...tegnap ejjel mar picit faradt voltam
  

• #800 g4dg3t senior tag Notes #790

  Új Válasz 2005-05-18 00:56:53 #800

  Ú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

  

  g4dg3t

  senior tag

  válasz Notes #790 üzenetére

  A gond ott van hogy elobb hivatkozol a parameterekre es csak kesobb hozod oket letre. Mikor meghivod a ParamByName metodust az SQL stringnek mar tartalmaznia kell a lekerdezest a parameterhivatkozasokkal egyutt!
  
  Tehat helyesen:
  

  
  ...
  with Query1, SQL do begin
    Close;
    Clear;
    Add('SELECT *');
    Add('FROM TranzTabla');
    Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
    if LekerdFelhComboBox.ItemIndex > 0 then
      Add('AND (Felhasznalo= :Felhaszn)');
    if LekerdPartnerComboBox.ItemIndex > 0 then
      Add('AND (Partner= :Partn)');
  
    ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
    ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
    ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
    ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
  
    Prepare;
    Open;
  end;
  ...
  

  
  
  Lathatod azt is hogy mikor kell hivni a Prepare metodust (Open elott). Ez annyit csinal, hogy elore lefoglalja a Query futtatasahoz szukseges eroforrasokat igy a lekerdezes vmivel gyorsabban lefut!
  
  [Szerkesztve]
• #799 g4dg3t senior tag gammar #793

  Új Válasz 2005-05-18 00:31:45 #799

  Ú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

  

  g4dg3t

  senior tag

  válasz gammar #793 üzenetére

  XP alatt nekem a kovetkezo keppen sikerult megoldani a meghajto talcajanak kinyitasat/becsukasat:
  
  

  
  ...
  const
    FILE_DEVICE_MASS_STORAGE = $2D;
    METHOD_BUFFERED          = 0;
    FILE_READ_ACCESS         = 1;
  
    IOCTL_STORAGE_EJECT_MEDIA = (FILE_DEVICE_MASS_STORAGE shl 16) OR
                                (FILE_READ_ACCESS shl 14)         OR
                                ($202 shl 2)                      OR
                                (METHOD_BUFFERED);
    IOCTL_STORAGE_LOAD_MEDIA  = (FILE_DEVICE_MASS_STORAGE shl 16) OR
                                (FILE_READ_ACCESS shl 14)         OR
                                ($203 shl 2)                      OR
                                (METHOD_BUFFERED);
  ...
  procedure TForm1.Button1Click(Sender: TObject);
  var
    CD_DVD_Handle: THandle;
    ret: DWORD;
  begin
    //Ertelem szeruen F: helyere a sajat meghajtod betujele...szebb ha irsz egy fuggvenyt ami lekerdezi
    CD_DVD_Handle:=CreateFile(PChar('\\.\F:'),GENERIC_READ,0,nil,OPEN_EXISTING,0,0);
  
    if CD_DVD_Handle <> INVALID_HANDLE_VALUE then begin
      //Talca kinyit
      DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_EJECT_MEDIA,nil,0,nil,0,ret,nil);
      //Talca becsuk
      DeviceIoControl(CD_DVD_Handle,IOCTL_STORAGE_LOAD_MEDIA,nil,0,nil,0,ret,nil);
  
      CloseHandle(CD_DVD_Handle);
    end;
  end;
  ...
  

• #798 g4dg3t senior tag yksz #796

  Új Válasz 2005-05-18 00:03:17 #798

  Ú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

  

  g4dg3t

  senior tag

  válasz yksz #796 üzenetére

  Csak Win98-as kernel32.dll-ben talalhato meg a RegisterServiceProcess fuggveny!
  
  Van egy tippem mire kellene ez neked El akarod tuntetni a futo alkalmazasok kozul a progid? Eleg egyszeru a modja a project .dpr fajljaban allitsd az alkalmazas 'cimet' ures stringre...fura de a WIN feladatkezeloje ez alapjan sorolja be, hogy alkalmazasrol avagy folyamatrol van szo.
  
  

  
  ...
      Application.Initialize;
      Application.Title:='';
  ...
  

• #657 g4dg3t senior tag killerjohn #654

  Új Válasz 2005-03-11 13:06:45 #657

  Ú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

  

  g4dg3t

  senior tag

  válasz killerjohn #654 üzenetére

  nem szeretek belehegeszteni a kodba komponensnevekre hivatkozasokat...szamomra attekinthetobb es foleg szebb ha egy sajat ciklus vegzi a keresest mondjuk Tag alapjan. (...mindenki mashogy csinalja...)

• #652 g4dg3t senior tag Diskcopy #642

  Új Válasz 2005-03-11 13:01:24 #652

  Ú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

  

  g4dg3t

  senior tag

  válasz Diskcopy #642 üzenetére

  inkabb gyorsabb nem? Elvegre FindComponent is ugyanugy vegiggyalogol egy listan...szal egy fv hivassal lassabb mint Blackwood fele TList-es megoldas

• #649 g4dg3t senior tag Diskcopy #644

  Új Válasz 2005-03-11 12:59:14 #649

  Ú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

  

  g4dg3t

  senior tag

  válasz Diskcopy #644 üzenetére

  Form1.FindComponent('image'+IntToStr(i)) as TImage).Picture.Bitmap := TBitmap.Create;
  
  helyett
  
  (Form1.FindComponent('image'+IntToStr(i)) as TImage).Picture.Bitmap := TBitmap.Create;

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