Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 7 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 19.07.08
Prihlásený: 23.05.12
Príspevky: 7
Témy: 4
Príspevok NapísalOffline : 14.12.2009 20:08

caute, pre vas machrov to bude hracka :)

keby v delphi tato procedura uz nebola zadefinovana a potreboval by som vymysliet, ako ju naprogramovat, aky by mala zdrojovy kod?
resp. procedura delete ma aky zdrojovy kod? (v delphi), za pomoc vopred vdaka


Offline

Užívateľ
Užívateľ
procedure delete

Registrovaný: 12.10.06
Prihlásený: 18.03.24
Príspevky: 20257
Témy: 79
Bydlisko: Banska Byst...
Príspevok NapísalOffline : 15.12.2009 12:51

kod bude mat taky, aky si naprogramujes aby ho mala.







_________________
Ryzen 7 3700X | SilentiumPC Fera 3 | Asrock X570M Pro4 | Patriot Viper 4 Blackout 16GB DDR4-3600 CL17 | Gainward RTX4060 Ti Pegasus 8GB | Samsung 970evo Plus 250GB NVMe | Corsair MP510 1TB NVMe | Samsung 980 Pro 2TB NVMe | Corsair RM550x | 24" BenQ GW2470H | 3x Noctua NF-S12B redux 1200 PWM
Xiaomi Mi 9 Lite 64GB
Offline

Správca fóra
Správca fóra
procedure delete

Registrovaný: 17.04.08
Prihlásený: 05.03.24
Príspevky: 13258
Témy: 420
Bydlisko: Myjava
Príspevok NapísalOffline : 15.12.2009 13:00

naco potrebujes ju programovat znova,ked je uz definovana? zbytocna komplikacia prace







_________________
PC: MSI B450 GAMING PLUS / AMD Ryzen 5 2600 / SilentiumPC Fera 3 HE1224 / ADATA XPG Spectrix D40 DDR4 2x8GB / Gainward GeForce GTX 1060 Phoenix 6GB / Adata XPG Gammix S11 M.2 SSD 480GB NVMe / Seagate BarraCuda HDD 2TB / WD Green 4TB / WD My Book Essential 3.0 2000GB / WD Elements 2000GB / ASUS BW-16D1HT / Creative Sound Blaster Audigy RX / Corsair CX450M / SilentiumPC Regnum RG4T / Dell P2719H / Microsoft Natural Ergonomic Keyboard 4000 / Logitech G102 Prodigy Gaming Mouse / Microlab SOLO9C / Microlab B77 / SONY WH-1000XM4 / Koss Porta Pro / Microsoft Windows 10 64-bit FPP
PC (history): ASUS M4A785TD-V EVO / Athlon II X4 640 / Hynix 8GB (2x4GB) DDR3 1600 MHz / Sapphire HD7750 1GB Ultimate Silent Series / AMD Radeon R3 120GB / Seagate 7200.12 500GB / Samsung SH-S223L / Creative Sound Blaster X-Fi XtremeMusic / Axago PCEU-43R USB3.0 / TP-LINK TG-3269 / Corsair VS450 / 24" BenQ G2420HDBL / Gigabyte GT-U8300
NTB: Huawei MateBook D15 NTB2: Alcatel PLUS 10 LTE NTB3: MSI M670X-091SK / Transcend 2x1GB DDR2 667MHz
Phone: Samsung Galaxy S9 Phone2: Samsung Galaxy S20+
Turntable: Tesla NC 470 / Ortofon OM 5E
Offline

Skúsený užívateľ
Skúsený užívateľ
procedure delete

Registrovaný: 11.01.09
Prihlásený: 18.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 15.12.2009 21:29

Ak by mala mať taký tvar, ako pôvodná funkcia:
Kód:
procedure Delete ( var Source  : string; StartChar  : Integer; Count  : Integer ) ;

tak nejako takto by to mohlo vyzerať:
Kód:
var
  i: integer;
begin

  for i:= (Count + StartString) to length(Source) do
    Source[i-Count]:= Soruce[i];            // posunutie reťazca

  for i:= (length(Source)-count+1) to length(Source) do
    Source[i]:= '';                         // vymazanie presahujúcich znakov

end;


To je celé.


Offline

Užívateľ
Užívateľ
procedure delete

Registrovaný: 19.09.06
Prihlásený: 17.01.24
Príspevky: 749
Témy: 31
Bydlisko: Ružomberok&...
Príspevok NapísalOffline : 15.12.2009 21:33

skoro presne takto to realne funguje v funkcii delete implementovanej borlandom, len ten druhy cyklus je tam zbytocny, kedze retazec je ukonceny nulovym znakom, tak sa iba na prislusnu poziciu nakopiruje nulovy znak.


Offline

Skúsený užívateľ
Skúsený užívateľ
procedure delete

Registrovaný: 11.01.09
Prihlásený: 18.03.24
Príspevky: 1385
Témy: 9
Bydlisko: Hrinova
Príspevok NapísalOffline : 15.12.2009 21:51

Veď keby tam cyklus nebol, ostanú tam pôvodné znaky:

Kód:
source = 'abcde';
Delete(source, 3, 2);


správne má byť: 'abe'
bez druhého cyklu by to bolo: 'abede';


Offline

Užívateľ
Užívateľ
procedure delete

Registrovaný: 19.09.06
Prihlásený: 17.01.24
Príspevky: 749
Témy: 31
Bydlisko: Ružomberok&...
Príspevok NapísalOffline : 15.12.2009 23:17

aha, teraz si spominam, ze ked som este robil z pascalom, ze ma to vzdy srdilo.
Pomylilo ma toto : http://www.gymrk.iglu.cz/delphi.png
Zaujimava je praca s retazcami v delphi, ked interna funkcia a zapise nulu, tak je vsetko ok, ked uzivatel, tak to nefunguje ;)


Odpovedať na tému [ Príspevkov: 7 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. DELETE

v Databázy

1

765

11.10.2007 19:13

stenley Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. delete subor

v Ostatné programy

7

699

18.08.2008 0:37

dedko45 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. delete char*

v Assembler, C, C++, Pascal, Java

4

408

17.11.2012 20:04

m4r14n Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Delete problém

v PHP, ASP

20

826

30.11.2008 20:32

stenley Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. MYSQL OMYLOM DELETE!

v Redakčné systémy

4

483

29.06.2007 21:35

Freelan Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomóóóc: shift+delete

v Operačné systémy Microsoft

4

485

05.05.2010 11:37

abre Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. DELETE Z MYSQL

v PHP, ASP

2

403

18.03.2009 21:57

7diwad7 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. C++ new / delete

v Assembler, C, C++, Pascal, Java

1

649

01.12.2008 21:15

ado21 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Problém s delete []

v Assembler, C, C++, Pascal, Java

5

371

26.07.2011 17:02

Fico Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Account Self-Delete

v Redakčné systémy

0

910

13.10.2006 9:04

JanoF Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. ctrl + alt + delete

v Operačné systémy Microsoft

7

600

22.04.2010 16:12

FUSSBALL Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Delete - bez koša

v Ostatné programy

1

414

16.03.2010 11:47

Bluedragon12 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. PHP delete folder

v PHP, ASP

9

704

26.07.2009 14:35

KViki Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. CTR+ALT+DELETE

v Ostatné programy

3

576

26.07.2008 23:07

dedko45 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Delete all user posts

v Redakčné systémy

0

469

14.10.2006 14:47

JanoF Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. PHP DELETE with checkbox

v PHP, ASP

2

383

24.04.2010 18:57

jtomcik Zobrazenie posledných príspevkov


Nemôžete zakladať nové témy v tomto fóre
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre

Skočiť na:  
cron

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra