| | |
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Autor | Správa |
---|
Registrovaný: 19.07.08 Prihlásený: 23.05.12 Príspevky: 7 Témy: 4 | Napísal miso93: 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
|
|
Registrovaný: 12.10.06 Prihlásený: 18.03.24 Príspevky: 20257 Témy: 79 Bydlisko: Banska Byst... | Napísal shiro: 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 |
|
Registrovaný: 17.04.08 Prihlásený: 05.03.24 Príspevky: 13258 Témy: 420 Bydlisko: Myjava |
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 |
|
Registrovaný: 11.01.09 Prihlásený: 18.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 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é.
|
|
Registrovaný: 19.09.06 Prihlásený: 17.01.24 Príspevky: 749 Témy: 31 Bydlisko: Ružomberok&... |
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.
|
|
Registrovaný: 11.01.09 Prihlásený: 18.03.24 Príspevky: 1385 Témy: 9 Bydlisko: Hrinova | Napísal Fico: 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';
|
|
Registrovaný: 19.09.06 Prihlásený: 17.01.24 Príspevky: 749 Témy: 31 Bydlisko: Ružomberok&... |
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
|
|
| Stránka: 1 z 1
| [ Príspevkov: 7 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| DELETE v Databázy | 1 | 765 | 11.10.2007 19:13 stenley | | delete subor v Ostatné programy | 7 | 699 | 18.08.2008 0:37 dedko45 | | delete char* v Assembler, C, C++, Pascal, Java | 4 | 408 | 17.11.2012 20:04 m4r14n | | Delete problém v PHP, ASP | 20 | 826 | 30.11.2008 20:32 stenley | | MYSQL OMYLOM DELETE! v Redakčné systémy | 4 | 483 | 29.06.2007 21:35 Freelan | | Pomóóóc: shift+delete v Operačné systémy Microsoft | 4 | 485 | 05.05.2010 11:37 abre | | DELETE Z MYSQL v PHP, ASP | 2 | 403 | 18.03.2009 21:57 7diwad7 | | C++ new / delete v Assembler, C, C++, Pascal, Java | 1 | 649 | 01.12.2008 21:15 ado21 | | Problém s delete [] v Assembler, C, C++, Pascal, Java | 5 | 371 | 26.07.2011 17:02 Fico | | Account Self-Delete v Redakčné systémy | 0 | 910 | 13.10.2006 9:04 JanoF | | ctrl + alt + delete v Operačné systémy Microsoft | 7 | 600 | 22.04.2010 16:12 FUSSBALL | | Delete - bez koša v Ostatné programy | 1 | 414 | 16.03.2010 11:47 Bluedragon12 | | PHP delete folder v PHP, ASP | 9 | 704 | 26.07.2009 14:35 KViki | | CTR+ALT+DELETE v Ostatné programy | 3 | 576 | 26.07.2008 23:07 dedko45 | | Delete all user posts v Redakčné systémy | 0 | 469 | 14.10.2006 14:47 JanoF | | PHP DELETE with checkbox v PHP, ASP | 2 | 383 | 24.04.2010 18:57 jtomcik |
| 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
|
|