Igen az alapoktol kezdi, ne tévesszen meg a címe.


[Szerkesztve]

Hogy tudok egy stringben kicserélni egy stringet?! Mi a függvény neve?

Bocs nincs hosszú ö, ü és néha az á is ä :)

Nagyon szépen köszönöm

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

sziasztok!

Ez mitől lehet?

ü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.

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]

Igen, van. Úgy hívják, hogy FileAge [link].
Csak azt nem tudom, 3.1-es Delphiben van-e.

Jester

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.

Ez a dátumot FileDate formában adja vissza, vagyis kell egy FileDateToDateTime() függvényhívás is.

A gugli a barátod
MOD: meg hát ott van az általam linkelt oldalon a példa

[Szerkesztve]

Jester

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

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]

köszi

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.

up
Üdv.: steveetm

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

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]

A kérdést nem értem ?
Ha dialup networkon keresztül akarsz pingelni, a kapcsolat létrejötte után (ha az a default ) akkor létrejönnek a megfelelő (dns,routing) bejegyzések. Ilyenkor a sima ping ipcím parancs működik.

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

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?

A SysUtils unitban van a StrPCopy függvény, ellenőrizd, hogy használod-e a unitot. Szerintem abban a unitban, ahol használni akarod a függvényt, nem szerepel a SysUtils az uses után sem az interfészben sem az implementációs részben.

Gondolhatod, hogy amit a neten találtam progikat, mindegyikben ott volt a SysUtils uses-ként. Ezért nem értem a dolgot.

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

Indy TCP vagy UDP szerver és kliens komponensek

[Szerkesztve]

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.

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.

if findcomponent('button3')<>nil then
begin
.
.
end;



oké, a hozzászólások sorrendjének beállítása még nem mindig megy...

[Szerkesztve]

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]

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.

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ő.

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

Ha SSL interceptort használsz akkor kell az openssl csomag 2 dll-je. (libeay32.dll és ssleay32.dll).

igen ezek meg is vannak, mind a system 32 mappában, mind a progi mellett, de még így is kiírja

Fly away my precious knowledge fly far away

Na rájöttem végre, hogy mi a baj. Delphi for .NET -et használtam, Delphi for Win32 helyett, és az előző nem ismerte a StrPCopy() fv.-t.
Most már működik, és köszi minden segítséget.

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

RxTools ?

nem tudom mi az....
Honnan tölthetem le a komponenst?
hogy működik?

Egy free komponenscsomag több száz elemmel D7-ig. Utána egyes részei beépültek a JEDI-be. Nézz utána a neten.

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

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''

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

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

Delphi 7 Mesteri Szinten I. Kötet
Marco Cantú

Delphihez szerintem a legjobb, nem turbo delphi, hanem egy korábbi verzió, de a nyelv ugyanaz, csak az IDE változott. Ne tévesszen meg a címe, ez az amire szükséged van.

[Szerkesztve]