Keresés: - Delphi programozás - LOGOUT Hozzászólások

Legfrissebb anyagok

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

Ú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

2005-05-18 00:31:45 #799

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;