kopiowanie tekstu z memo do memo

0

kopiowanie tekstu z memo do memo a przed umieszczeniem tekstu w memo2 wykonanie jakiejs operacji na tekscie jak to zrobić?

0

Ales namieszal :P
Memo2.Text := Memo1.Text; Tak mozesz skopiowac. A co do operacji to sprecyzuj co bys chcial :)
--Pozdrawiam {hello}
Tomasz K.

0

Jakiej operacji?

Skopiuj tekst do stringa. Zrób co chcesz na stringu i wklej do Memo2.--Jest jeszcze jeden błąd ... :)

------------Reklama-------------
Szukasz pomocy?
Najszybsza pomoc dostępna na IRC:
serwer: warszawa.ircnet.pl
sieć: POLNet
kanał: #4programmers.net lub #4programmers

0

chodzi o to by tekst z komponentu memo1 był pokazywany w oryginalnej poztaci a w memo 2 w samych dużych literach

0

chyba skapowałem ; )

var
s : string;
i : integer;
begin
memo2.lines.clear;
for i:=0 to memo1.lines.count - 1 do
begin
s := uppercase(memo1.lines[i]);
memo2.lines.add(s);
end;
end;

0

a jakbym chciał żeby na tekscie była wykonana wcześniej zdefiniowana procedura to jak to wywołać?

0

Memo2.Text := AnsiUpperCase(Memo1.Text);

wstawi do Memo2 text z Memo1 zmieniony na tylko wielkie litery :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

jaktozrobić? napisał:
a jakbym chciał żeby na tekscie była wykonana wcześniej zdefiniowana procedura to jak to wywołać?

Jeżeli to procedura, a masz możliwość przerobienia jej na funkcję to wywołaj ją tak samo jak LKS pokazał wywoływanie AnsiUpperCase.
Jeżeli nie masz możliwości przerobnienia na funkcję, a procedura zmienia tekst źródłowy to użyj pomocniczego bufora.--Jest jeszcze jeden błąd ... :)

------------Reklama-------------
Szukasz pomocy?
Najszybsza pomoc dostępna na IRC:
serwer: warszawa.ircnet.pl
sieć: POLNet
kanał: #4programmers.net lub #4programmers

0

Modyfikuj s po linijce s := memo1.lines[i];

np. delete(s,1,3); :]

0

ZIOMBER napisał:
Modyfikuj s po linijce s := memo1.lines[i];
&gt
&gtnp. delete(s,1,3); :]

Po co tak kombinować? Nie łatwiej od razu odwołać się do całości tekstu? na pewno jest to znacznie szybsze.--Jest jeszcze jeden błąd ... :)

------------Reklama-------------
Szukasz pomocy?
Najszybsza pomoc dostępna na IRC:
serwer: warszawa.ircnet.pl
sieć: POLNet
kanał: #4programmers.net lub #4programmers

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