[delphi]Jak podzielic string?

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» resmedia 06:12 » ngP 05:53 » hokr 05:53 » NimnuL 05:42 » coolio 04:55 » Martens 04:52 » NWN 04:42 » selves 03:38 » Bonifacyz 03:06 Dzisiaj przeczytano 36867 postów, wczoraj 25433 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

[delphi]Jak podzielic string? , majek 20/03/06 10:39
przykladowo mam nazwe dynamicznego obiektu: img0, img1 itd...Jak pozbyc sie img, zeby zostal sam integer? (musze miec indeks tablicy gdzie jest ten element)
Nie moge nazwac obiektu samym integerem, a w tagach juz cos przechowuje...

... ale jak to?!

Obrzydliwa metoda , JOTEM 20/03/06 11:00
Tyle powiem. Nie przyłożę ręki do takiego dziadostwa.
Odziedzicz sobie po obiekcie, który tworzysz dynamicznie i dodaj tyle pól ile chcesz.
W najprostszej i nieeleganckiej, choćdziałającej doskonale wersji 5 kretyńsko prostych linijek programu:

TMojObiekt = class(TImage)
public
Numer:Integer
end;

I tyle.
Poryjemy..zrobaczymy
:)) , bartek_mi 20/03/06 11:12
modl sie zeby ktos sensowny w kod nie zajrzal :)

i sie ludzie nameczyli zeby dodac do pascala obiekty jak widac niepotrzebnie :)
dzisiaj jest jutrzejszym wczoraj
eee , Zajkos 20/03/06 12:56
AnsiString __fastcall operator -(const AnsiString& lhs, const AnsiString& rhs)

{
return lhs.SubString(1,lhs.Pos(rhs)-1)+lhs.SubString(lhs.Pos(rhs)+rhs.Length(),lhs.Length()-lhs.Pos(rhs)-rhs.Length()+1);
}
StringReplace Ci pomoze , jenot 20/03/06 23:39
Delphi dla obiektów tworzonych dynamicznie ndaje nazwy, składające się z nazwy klasy + cyferki (chba, ze była zdefiniowana nazwa to wtedy dokleja cyferki do tej nazwy )

Nazwa obiektu przechowywan jest w property TWOJA_Klasa.Name
Przykładowo masz dynamicznie potworzone obiekty o nazwah img1, img2, img3 to aby dostać sam numerek (integer) robisz : numerek := StrToInt ( stringReplace ( DynamicznyObiekt.Name, 'img', '' , [rfReplaceAll] ) ) ;

Jednak niestety obawiam się, że to co chcesz osiągnąć może być niemozliwe z innej przyczyny. Mianowicie delphi numeruje obiekty kolejno tylko do momentu kiedy nie zostały z pamięci usunięte stare... Później przydziela numerki najniższe wolne.

mozesz tez uzyc funkcji Copy
Mój podpis max 100 zanaków,
zabroniony spam oraz reklama.