- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- eBay-es kütyük kis pénzért
- Mr. Y: Motoros sztorik #06
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- NASsoljunk: ZyXEL NSA-310 és az FFP
- Őskoczka
- gban: Ingyen kellene, de tegnapra
Új hozzászólás Aktív témák
-
D@ni88
addikt
Sziasztok.
ShellExecute(0, PChar('print'), PChar(APath), PChar('/t /s'), nil, 0);
Újabb fejlemény: Öröm és boldogság, mert ugye működik, de a tesztelés során olyan hibát találtam hogy kb a 50-100x shellexecute hívás után mintha nem történne semmi, nem nyomtat. (reader megnyílik)
-
#1985
Fire/SOUL/CD
félisten
D@ni88
#1984
-
#1983
Fire/SOUL/CD
félisten
D@ni88
#1982
-
#1981
Fire/SOUL/CD
félisten
D@ni88
#1980
-
zka67
őstag
Szia, ezt próbáld ki, nekem működik:
function Execute(FileName, Params : string; Show : integer = SW_HIDE) : boolean;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0) ;
SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(FileName) ;
lpParameters := PChar(Params);
nShow := Show;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
Result := true;
end
else begin
ShowMessage('Program file not found!') ;
Result := false;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Execute('acrord32', 'filename.pdf', SW_NORMAL);
end; -
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?
-
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/?) -
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
-
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) -
zka67
őstag
A DateUtils unitban vannak a dátum/idő rutinok. Ebben megtalálod a többek között a következőket is:
function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;
// function IncMonth is in SysUtils
function IncWeek(const AValue: TDateTime; const ANumberOfWeeks: Integer = 1): TDateTime;
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;
function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;
function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;
function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;pl. ha egy perccel többet szeretnél a jelenlegi időnél, akkor
Label1.Caption := DateTimeToStr( IncMinute(Now, 1) );
-
#1894
Peter Kiss
őstag
D@ni88
#1893
Peter Kiss
őstag
Delphi-hez nem értek, de annyit tudok javasolni, hogy nézzétek meg, a Windows mely részeit érinti a program akármilyen szempontból (fájlrendszer [hová ír], regisztrációs adatbázis, ilyesmi). Általában, ha valami XP-ről nem megy rendesen Windows 7-en, akkor valami alap működési elver sért.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
- Hosszabb bemutatót kapott a Borderlands 4
- Genshin Impact (PC, PS4, Android, iOS)
- Windows Insider Program
- Autós topik
- Nagyrobogósok baráti topikja
- Milyen okostelefont vegyek?
- AMD Radeon™ RX 470 / 480 és RX 570 / 580 / 590
- Mibe tegyem a megtakarításaimat?
- Yettel topik
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- BONTATLAN Új Iphone 16 PRO 128Gb - 1TB Független 1év Apple GARANCIA Deák Térnél Azonnal Átvehető.
- Új Bontatlan Mac Studio M4 Max 2025 14cCPU /32cGPU / 36GB RAM / 512GB SSD - Azonnal Átvehető Deák.
- BONTATLAN Új Iphone 16e 128-512GB 1év APPLE garancia gyári független Deák AZONNAL Átvehető Deák térn
- ÚJ bontatlan S9 45mm Silver Stainless steel Cellular milanese fémszíj 199.900 azonnal átvehető Deák
- ÚJ kipróbálásra felbontott MacBook Pro 16 M4 Pro 14CPU/20GPU 24GB/512GB SSD Magyar billentyűzet Azon
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest