Hirdetés
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Sony MILC fényképezőgépcsalád
- Házimozi haladó szinten
- Milyen monitort vegyek?
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Milyen notebookot vegyek?
- RAM topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Milyen TV-t vegyek?
- Méretesre tervezve a Blackwell dizájnt az NVIDIA
Új hozzászólás Aktív témák
-
Flashback
addikt
Hogy tudok egy stringben kicserélni egy stringet?! Mi a függvény neve?
Bocs nincs hosszú ö, ü és néha az á is ä :)
-
yksz
aktív tag
válasz Flashback #1302 üzenetére
stringben 1 karaktert? Nem igazaán értem a kérdésedet de stringekben így hivatkozol az x. számú karakterre: a[x] ha ennek értéket akarsz adni, akkor a[x]:= stb. és így nem az egész stringet változtatod, csak azt a karaktert, de arra vigyázz h karakterként is dolgozz vele!
[Szerkesztve]Fly away my precious knowledge fly far away
-
szabi244
csendes tag
sziasztok!
Ez mitől lehet? -
föccer
nagyúr
üdv.
Adott: Delphi 3.1-ben <nem kinevetni >
opendialoggal választok egy fájlt. filename megadja nekem a menyitni kívánt file nevét, de mi adja meg a utolsó módosításának dátumát? és miben kapom? Date formátumban, vagy str-ban?
Tehát:
var
s, d: string;
Begin
if opendialog.execute then
begin
s:= opendialog.filename
d:= ????
end;
end;
Kösszenet.
üdv.: föccerÉpítésztechnikus. Építőmérnök.
-
ViragL
tag
Forrás: Jon Erik Oterhals Utolsó módosítás: 1998. december 17.
A fájl utolsó hozzáférésének (használatának) időpontját az alábbi eljárással tudod megjeleníteni. (A kérdéses fájl nevét (elérési útját) az AnyFile.FIL helyére kell behelyettesíteni.)
procedure TForm1.Button1Click(Sender: TObject);
var
FileHandle : THandle;
LocalFileTime : TFileTime;
DosFileTime : DWORD;
LastAccessedTime : TDateTime;
FindData : TWin32FindData;
begin
FileHandle := FindFirstFile('AnyFile.FIL', FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and
FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime,
LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
LastAccessedTime := FileDateToDateTime(DosFileTime);
Label1.Caption := DateTimeToStr(LastAccessedTime);
end;
end;
MOD: gugli tudja
[Szerkesztve] -
föccer
nagyúr
wow.
thx.
Aztatat hittem, hogy van erre is valami function, ami megcsinálja heklyeettem. Amilyen gyakrak írok progikat, annyira nem érdemes megtanulnom a google ez irányú hasaznűlatát
Thx.
üdv.: föccer
aszta, de tudok gépelni... :-/
[Szerkesztve]Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Jester01 #1311 üzenetére
Hehe, ez így menyivel egyszerübb....
benne van, de valami hülyeséget ad vissza...
27650.10.21
2006.10.25 15:34 helyett....
A próbát így végeztem:
if opendialog1.execute then showmessage(datetostr(fileage(opendialog1.filename)));
A hiba az én készülékemben van?Építésztechnikus. Építőmérnök.
-
szabi244
csendes tag
Sziasztok!
Hogyan tudok gombból és edit mezőből tallózási lehetőséget csinálni a winchesterem könyvtárai között?
Sz -
ViragL
tag
válasz szabi244 #1315 üzenetére
Gombnyomásra tallózás ablak és a tallózás eredménye az edit mezőbe? Ha igen, akkor attol függően, hogy milyen tallózó ablak kell adj hozzá a formhoz egy OpenDilalog/SaveDialog-ot vagy bármely más dialogot, a gomb OnClick-jébe pedig pl.
if OpenDilalog1.Execute then
Edit1.Text := OpenDialog1.Filename;
Remélem segítettem.
[Szerkesztve] -
szabi244
csendes tag
Tizedespontoot szeretnék átalakítani ponttá.
HA tört értéket szeretnék tárolni, akkor a pontot elfogadja a tizedesvesszőt nem, és hibával leáll. Ezt akarom kiküszöbölni. -
yksz
aktív tag
Udv! A kov a problémám: Hogyan tudok ''extra'' modemnek szóló paranccsal (type of service - ha jo´tudom) pinget kuldeni egy IP-re? a pingelésig eljutottam és muxik is rendesen, csak a parancs kéne, h hova mikor mit és mivel?
Fly away my precious knowledge fly far away
-
btotyi
tag
válasz szabi244 #1318 üzenetére
Ha stringet akarsz float-tá konvertálni akkor a Delphi a windowsban beállított tizedes jelet használja fel. Tehát magyar windowson tizedes vessző, angol nyelvűn pedig tizedes pont van. Ha a stringet te magad rakod össze akkor használd a SysUtils DecimalSeparator változóját.
[Szerkesztve] -
yksz
aktív tag
Akkor h tudom meghatározni egy kikuldott PING csomag méretét és még a ping mellé, pinggel egyutt más parancsokat is kikuldeni 1x-re
[Szerkesztve]Fly away my precious knowledge fly far away
-
bukica
csendes tag
Sziasztok!
Kezdő vagyok Delhiben.
Az StrPCopy() függvényt szeretném használni, de fordításkor mindig kiírja, hogy 'undeclared Identifier: StrPCopy'. Több progit is találtam már a neten, ami ezt használja, de egyiket sem sikerült lefordítanom, mindegyiknél ezt a hibát írja ki. Próbáltam 8-as és a 2005-ös Delphivel is. Mi lehet a gond, mi marad ki a progiból? -
yksz
aktív tag
Melyik komponenseket használjam, ha egy esemény megtorténését akarom elkuldeni egy másik gépen futó proginak (nem trójait akarock írni ) csak egy csóró kis multiplayer gamet, h ki nyomja le gyorsabban a gombot. Szal a gomb lenyomására elkuldeni h én már lenyomtam:S rem értheto
Fly away my precious knowledge fly far away
-
ViragL
tag
Nos a problémád oka az, hogy nem a megfelelő Delphi verzióval akarod fordítani a netröl leszedett programokat. A külömböző Delphi verziók nem véletlenül külömböző verziók. Semmi nem garantálja, hogy a külömböző verziókban a függvények és egyéb eszközök specifikációja, működése megegyezik.
-
bukica
csendes tag
Ezek szerint azt mondod, hogy pl. egy Delphi 3 alatt működő progit nem tudok lefofdítani Delphi 2005 és Delphi 8 alatt? Hát ez nekem egy kicsit magas. Én azt hittem, hogy lefele kompatibilisek ezek a progik. Egyébként a Delphi 2005 helpjében megtaláltam az StrPCopy-t, azt írja, hogy a SysUtils-ban van, és mégis azt írja, hogy nemdeklarált vátozó . Nem értem.
-
ViragL
tag
Jól érted, nem teljesen kompatibilisek az egyes Delphi verziók. A fejlődés során sok mindent újraírtak, megváltoztattak, így valóban van egy StrPCopy() függvény mindegyik Delphi SysUtils unitjában, az nem egyezik meg azzal amit a másik Delphi verzióban megírt program használni akar. A neve ugyanaz, de a szignatúrája külömbözik, ha jobban megnézed. Így, mivel Delphiben (is) túlterhelhetőek a nevek, a fordító nem azt a függvényt keresi, ami a SysUtilsban van, hanem egy olyat keres, aminek a szignatúrája megegyezik a hívott függvény szignatúrájával és mivel olyat nem talál, azt mondja, hogy nem deklarált eszközt akarsz használni.
MOD: nem egy egzakt megfogalmazás, de remélem érthető a lényeg.
[Szerkesztve] -
bukica
csendes tag
Nagyjából értem, de mi is az a szignatúra? A paraméter megadás? A Delphi 2005 helpjében a
[Delphi] function StrPCopy(Dest: PAnsiChar, const Source: string): PAnsiChar;
található, míg a programban a következőként szerepel:
function ExecAndWait(const FileName: string; const CmdShow: Integer): Longword;
var { by Pat Ritchey }
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
AppIsRunning: DWORD;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
.
.
end;
Itt az StrPcopy() és a FillChar() -ra is hibát jelez. Mi is akkor a teendő? Próbáljak egy másik függvényt írni helyette?
Bocs, hogy sokat kérdezek, de szeretném megérteni, ill. megcsinálni a progit, hogy működjön. -
ViragL
tag
A szignatúra az eljárás/függvény neve+ a formális paraméterek száma és tipusa + függvényeknél a visszatérési érték tipusa. (a teljesség igénye nélkül )
Ja, vagy írj saját függvényt, vagy keress egyet amivel megfelelő tipusura tudod konvertálni a nem megfelelő tipusu paramétert. Azt hiszem PChar -> PAnsiiChar konverterre lesz szükséged. A FillChar-ral is ugyanez a teendő. -
yksz
aktív tag
Ezzel mit kezdjek: ''could not load ssl library'' - amikor a kliensemmel csatlakozni akarock egy serverre? Ha viszont utána az írja h connected=true és ha megint próbálok egy connectet, akkor ''already connected'' :S Most akkor rossz valami azzal az ssl-lel, v nem? és ha nem akkor h tudom eltuntetni h ne írja azt ki?
Fly away my precious knowledge fly far away
-
szabi244
csendes tag
olyan Edit komponens kellene nekem, amiben a beírt számokat ezres helyiértékkel tudja csoportosítani. pl.: 12 000 000 vagy 85 953 500
-
yksz
aktív tag
Udv! H tudok a TCPserver-rel (nem indy) egy állandóan fentartott kapcsolat mellett, szoveget, v akármit is fogadni a kapcsolódott klienstol? Mert találtam olyat h onreceive, de ez mikor hívódik meg, v h használjam?
Fly away my precious knowledge fly far away
-
ViragL
tag
Szerintem nagy fába vágta a fejszét, amit meg szeretnél valósítani (hozzászólásaid alapján) az nem csak egy kis ''heggesztés'' lesz, hanem komolyabb tudást igényő feladat. Tehát, nem tudom az elméleti háttérrel hogy állsz, ha hiányosnak érzed, akkor javaslok egy cikket, szerintem olvasd át, ártani nem árthat (anno az egyetemen ez volt a szakirodalmunk hálózat gyakorlathoz..nc)[link] Nem Delphis cikk, csak a hálózati kommunikáció működését mutatja be.
Sajna ennyit tudok segíteni. Jut eszembe, ha jól emlékszem a Delphi demó projektek között van valahol egy p2p messenger program. Asszem.
Sok sikert. -
Tomcat13
senior tag
Sziasztok!
Nagy pácban vagy vasárnapig bekéne adnom 3 feladaot Delphiben, de nagyon nem avgyok képben, sajna most jött ki, hogy a gyakorlat nem olyan egyszerű, a 3 probléma a következő:
1. Készítsünk programot, amelyben a nevek egyoszlopos listában és rendezetlenül jelennek meg! Legyen lehetőség a lista elemeinek ábécé sorrendben való megjelenítésére! A kiválasztott listaelemet jelenítsük meg a szövegmezőben!
2. Működtessünk szinkronban egyszeres kiválasztású listaablakokat!
3. Készítsünk állománymásoló programot. A másolás végrehajtásához használjunk adott típusnélküli fájlokat!
Nagyon fontos lenne összehozni vmit, aki tud kérem segítsen!'' Meghalni lehet, de elfáradni sohasem''
-
ViragL
tag
válasz Tomcat13 #1347 üzenetére
3. feladat (másolva a helpből)
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
if OpenDialog1.Execute then { Display Open dialog box }
begin
AssignFile(FromF, OpenDialog1.FileName);
Reset(FromF, 1); { Record size = 1 }
if SaveDialog1.Execute then { Display Save dialog box}
begin
AssignFile(ToF, SaveDialog1.FileName); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
+ ' bytes...');
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;
end;
end;
2. feladat hoz annyit tudok mondani, töltsd fel a 2 lisBxot ugyanannyi elemmel, majd az OnCLick és OnKEyUp eseményekben állítsd be a másik ItemIndex propertyjét az esemény tulajdonosának ItemIndex értékére.
1. feladat. pakold a neveket egy tömbbe, lehetőleg dinamikusba, egy listBoxba pakold bele őket. (.items.add). tegyél ki egy gombot, onclick eseményben listBox törlése (.items.clear) a tömb rendezése majd pakold vissza a listboxba a rendezett tömb elemeit.
nincs most több időm erre, használd a helpet! bocs az esetleges szintaktikai hibákért. soksikert -
Bandus99
őstag
Sziasztok tudtok mondani magyar nyelvu doksit ahol szajbaragva elmondjak delphi alapjat ?
Tehat alapokat kellene megtanulni elvileg turbo delphit tettek fel suliban ezzel kellene megismerkedni.Van me'g ve'r a koffeinkeringe'semben
Új hozzászólás Aktív témák
- Nitro 5 AN515-55 15.6" FHD IPS i5-10300H GTX 1650 16GB 512GB+1TB magyar vbill WIFI 6 gar
- Szép állapotú Xbox One Slim 500Gb+GTA V játék!
- Szép állapotú ELITE Xbox One Kontroller Series 2
- MSI GeForce RTX 3060 Ti 8GB GDDR6 256bit RTX 3060 Ti GAMING Z TRIO 8G LHR Videokártya
- Playstation PS VR2 GARANCIÁLIS