Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - Memo
Forum - Delphi - Memo

Avatar
PrggInesperta (Normal User)
Newbie


Messaggi: 8
Iscritto: 07/12/2008

Segnala al moderatore
Postato alle 16:21
Domenica, 07/12/2008
Salve a tutti,
ho un problema con Delphi
Devo copiare da un Memo ad un altro memo ciò che scrivo con la condizione che se nel primo memo c'è scritto " ciao " nel secondo deve visualizzarsi " ciAo " cioè tutte le 'a' piccole devono trasformarsi nel secondo memo in 'A' grandi tramite un bottone...
qualche suggerimento?

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 23:15
Domenica, 07/12/2008
ciao..

inserisci nel form un bottone (button1)
e due memo (memo1 e memo2)

poi nell'evento on click del bottone mettici:
Codice sorgente - presumibilmente Delphi

  1. var i,lunghezza:integer;
  2. begin
  3.  lunghezza:=memo1.GetTextLen;
  4.  for i:=1 to lunghezza do
  5.   begin
  6.    if memo1.text[i]='a' then
  7.     memo2.Text:=memo2.text+'A'
  8.    else
  9.    memo2.text:=memo2.Text+memo1.text[i];
  10.   end;
  11. end;


Ultima modifica effettuata da Anonymous il 07/12/2008 alle 23:19
PM Quote
Avatar
pierotofy (Admin)
Guru^2


Messaggi: 6230
Iscritto: 04/12/2003

Segnala al moderatore
Postato alle 10:12
Lunedì, 08/12/2008
Oppure più elegantemente usa StringReplace...

http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace



Il mio blog: https://piero.dev
PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 10:26
Lunedì, 08/12/2008
Testo quotato

Postato originariamente da pierotofy:

Oppure più elegantemente usa StringReplace...

http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace




fico!!!
sai che non la conoscevo?!?! :D

PM Quote
Avatar
PrggInesperta (Normal User)
Newbie


Messaggi: 8
Iscritto: 07/12/2008

Segnala al moderatore
Postato alle 11:39
Lunedì, 08/12/2008
Testo quotato

Postato originariamente da Anonymous:

ciao..

inserisci nel form un bottone (button1)
e due memo (memo1 e memo2)

poi nell'evento on click del bottone mettici:
Codice sorgente - presumibilmente Delphi

  1. var i,lunghezza:integer;
  2. begin
  3.  lunghezza:=memo1.GetTextLen;
  4.  for i:=1 to lunghezza do
  5.   begin
  6.    if memo1.text[i]='a' then
  7.     memo2.Text:=memo2.text+'A'
  8.    else
  9.    memo2.text:=memo2.Text+memo1.text[i];
  10.   end;
  11. end;




Grazie mille per il tuo aiuto :)
è stato prezioso...

PM Quote
Avatar
PrggInesperta (Normal User)
Newbie


Messaggi: 8
Iscritto: 07/12/2008

Segnala al moderatore
Postato alle 11:41
Lunedì, 08/12/2008
Testo quotato

Postato originariamente da pierotofy:

Oppure più elegantemente usa StringReplace...

http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace




Grazie mille... :)
ma credo di non essere ancora in grado di usarlo... :(

PM Quote
Avatar
Anonymous (Member)
Guru


Messaggi: 1059
Iscritto: 30/07/2006

Segnala al moderatore
Postato alle 13:26
Lunedì, 08/12/2008
Testo quotato

Postato originariamente da PrggInesperta:

Testo quotato

Postato originariamente da pierotofy:

Oppure più elegantemente usa StringReplace...

http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace




Grazie mille... :)
ma credo di non essere ancora in grado di usarlo... :(



beh.. a occhio e croce con il metodo linkato da piero dovrebbe venir cosi..

metti questo codice al posto di quello che ti ho dato prima


Codice sorgente - presumibilmente Delphi

  1. var originale, cambiato:string;
  2. begin
  3.  originale:=memo1.text;
  4.  cambiato  := StringReplace(originale, 'a', 'A',[rfReplaceAll, rfIgnoreCase]);
  5.  memo2.Text:=cambiato;
  6. end;



però va beh... alla fine è la stessa cosa :D

PM Quote
Avatar
PrggInesperta (Normal User)
Newbie


Messaggi: 8
Iscritto: 07/12/2008

Segnala al moderatore
Postato alle 15:24
Lunedì, 08/12/2008
Testo quotato

Postato originariamente da Anonymous:

Testo quotato

Postato originariamente da PrggInesperta:

Testo quotato

Postato originariamente da pierotofy:

Oppure più elegantemente usa StringReplace...

http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace




Grazie mille... :)
ma credo di non essere ancora in grado di usarlo... :(



beh.. a occhio e croce con il metodo linkato da piero dovrebbe venir cosi..

metti questo codice al posto di quello che ti ho dato prima


Codice sorgente - presumibilmente Delphi

  1. var originale, cambiato:string;
  2. begin
  3.  originale:=memo1.text;
  4.  cambiato  := StringReplace(originale, 'a', 'A',[rfReplaceAll, rfIgnoreCase]);
  5.  memo2.Text:=cambiato;
  6. end;



però va beh... alla fine è la stessa cosa :D



non devo sembrare troppo brava xD
che dopo devo spiegare le cose...
cmq ora ci provo :)

PM Quote