[Delphi] [Kompilator] Wiesz jak zrobic....

0

Np. wstawiam komponenty Memo i Button i kce zrobić
coś takiego że jeśli jest w Memo taki text

ShowMessage('cos');

a kiedy klikne na Button to przerobi tekst w mamo
na taki

coś w stylu Kompilatora

0

Np. wstawiam komponenty Memo i Button i kce zrobić
coś takiego że jeśli jest w Memo taki text

ShowMessage('cos');

a kiedy klikne na Button to przerobi tekst w mamo
na taki

coś w stylu Kompilatora

if Memo.Text = 'ShowMessage('cos');' then
Memo.Text := #13#10#13#10'';

a na serio to różne dziwne rzczy przychodzą do głowy o 03:57 :-D

0

Jak dla mnie kompilator to to nie jest. No, skoro chcesz zrobić coś takiego to pamiętaj o tym, że musisz znać polecenia JS i ich odpowiedniki w Delphi, to wszystko ładnie oprogramować (choć niektórych elementów JS się nie da). Życzę powodzenia. Może za te 30 lat jak skończysz ten program to będziemy mogli go obejrzeć na tej stronie... Proste rzeczy da się wykonać w ten sposób, ale niektórych wykonanie NIE JEST MOŻLIWE.

[Dopisek późniejszy po analizie kodu wyżej] Kod jest właściwy, choć wpisanie czegokolwiek innego do Memo spowoduje zawalenie się programu :). Trzeba by było jeszcze wyodrębniać teksty z delphi do zmiennej i wsadzać do JS... Masa roboty - bawiłem się czymś takim tylko 3 miesiące, ale mnie przerosło...

0

proponuje zesplitować tekst z memo i w pętli sprawdzać jeżeli showmessage w którymś jest wtedy zamień i w kółko...

0

<font color="green">proponuje zesplitować tekst z memo i w pętli sprawdzać jeżeli showmessage w którymś jest wtedy zamień i w kółko...</span>

A m<font color="red">u</span>głym poprośić o kod <font color="red">ż</span>r<font color="red">u</span>dłowy to dlamnie ważne [???]

acha ja niekce zrobić kompilatora tylko coś w stylu połączenia HTML i JavaScript and CSS ;-)

Dziewczyna i Zapłakany były zabicie nowa
Kolega <font color="red"><font size="18">h</span></span>łopak obojgu milosc
[sex] ;-( [killer] [laska]

0

str1 := 'alert(lol)';
nie wiem czy cos pomoze bo nie chce mis ie tego robic :Pif pos('alert(',str1) > 0 then
begin
delete(str1,1,pos('alert(',s)+5);
delete(str1,length(str1)-1,2);
showmessage(str1);
end;

oto oryginal:

if pos('msg',s) > 0 then
begin
delete(str1,1,pos('msg',s)+3);
delete(str1,length(str1)-1,2);
showmessage(str1);
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1