Ĺadny brzuch
Jak zamienić tekst wpisany w edit na inny. Przykład
wpiszesz" lol " klikacz i w label1 pojawi się "hta". żebu zamieniał poszególne litery ( wpisane w edit) na te podane w kodzie.
"a=w ; b=h"
var Tekst:string; Licznik:byte; begin Tekst:=Edit1.Text; For Licznik:=0 to Length(Tekst) do Begin IF Tekst[Licznik]='E' Then Tekst[Licznik]:='e'; IF Tekst[Licznik]='d' Then Tekst[Licznik]:='D'; End; Edit1.Text:=Tekst; end;
// Używaj [ code ] (ew. [ codebox] )
Użytkownik _Herkules_ edytował ten post 21 czerwiec 2005, 21:06
label1.caption:=stringreplace(edit1.text,'lol','hta',[rfReplaceAll]) ;
funkcja stringreplace ma takie paramaetry:
stringreplace(tekst_wejsciowy,z czego zamienic, na co zamienic, flagi);
nie o to mi chodzi. Tekst wpisany w edit po kliknięciu na przycisk zamieni ( każdą litere z osobna) na podaną w kodze i wyświetli to na label1.
wpiszesz KS-Ekspert ---> trepske-sk.
obojętnie co wpiszesz to literę a zamienia na np. z ; b-> y ; c->x; l-> t wpiszesz abc to wyświetli zyx wpiszesz cab xzy, lab-> tzy.
Użytkownik turboasm edytował ten post 20 czerwiec 2005, 06:18
nie o to mi chodzi. Tekst wpisany w edit po kliknięciu na przycisk zamieni ( każdą litere z osobna) na podaną w kodze i wyświetli to na label1.
wpiszesz KS-Ekspert ---> trepske-sk.
obojętnie co wpiszesz to literę a zamienia na np. z ; b-> y ; c->x; l-> t wpiszesz abc to wyświetli zyx wpiszesz cab xzy, lab-> tzy.
var litera:Integer; text:String; begin Text:=Edit1.Text; for litera:=1 to Length(text) do case text[litera] of 'A':Text[litera]:='x'; 'B':Text[litera]:='y'; 'C':Text[litera]:='z'; ........... end; Label1.Caption:=Text; end;
właśnie o takie coś mi chodziło.
dzięki
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
wpiszesz" lol " klikacz i w label1 pojawi się "hta". żebu zamieniał poszególne litery ( wpisane w edit) na te podane w kodzie.
"a=w ; b=h"
var Tekst:string; Licznik:byte; begin Tekst:=Edit1.Text; For Licznik:=0 to Length(Tekst) do Begin IF Tekst[Licznik]='E' Then Tekst[Licznik]:='e'; IF Tekst[Licznik]='d' Then Tekst[Licznik]:='D'; End; Edit1.Text:=Tekst; end;
// Używaj [ code ] (ew. [ codebox] )
Użytkownik _Herkules_ edytował ten post 21 czerwiec 2005, 21:06
label1.caption:=stringreplace(edit1.text,'lol','hta',[rfReplaceAll]) ;
funkcja stringreplace ma takie paramaetry:
stringreplace(tekst_wejsciowy,z czego zamienic, na co zamienic, flagi);
nie o to mi chodzi. Tekst wpisany w edit po kliknięciu na przycisk zamieni ( każdą litere z osobna) na podaną w kodze i wyświetli to na label1.
wpiszesz KS-Ekspert ---> trepske-sk.
obojętnie co wpiszesz to literę a zamienia na np. z ; b-> y ; c->x; l-> t wpiszesz abc to wyświetli zyx wpiszesz cab xzy, lab-> tzy.
Użytkownik turboasm edytował ten post 20 czerwiec 2005, 06:18
nie o to mi chodzi. Tekst wpisany w edit po kliknięciu na przycisk zamieni ( każdą litere z osobna) na podaną w kodze i wyświetli to na label1.
wpiszesz KS-Ekspert ---> trepske-sk.
obojętnie co wpiszesz to literę a zamienia na np. z ; b-> y ; c->x; l-> t wpiszesz abc to wyświetli zyx wpiszesz cab xzy, lab-> tzy.
var litera:Integer; text:String; begin Text:=Edit1.Text; for litera:=1 to Length(text) do case text[litera] of 'A':Text[litera]:='x'; 'B':Text[litera]:='y'; 'C':Text[litera]:='z'; ........... end; Label1.Caption:=Text; end;
właśnie o takie coś mi chodziło.
dzięki