[delphi] Memo i Entery :)

Jak usunac "entery" z memo ??? - chodzi |eby wklejony tekst np.
"sdfsfsdf
dsfsdf
sdfsdffsd"
byl zapisany w jednej lini.--Delphi 6 Personal

var
i : integer;
s,s2 : string;
begin
s := '';
for i:=0 to memo1.lines.count -1 do
begin
s2 := memo1.lines[i];
s := s + s2;
end;
end;

chyba działa :]

ZIOMBER napisał:
&gtchyba działa :]

var
i : integer;
s : string;
begin
for i:=0 to memo1.lines.count -1 do
s := s + memo1.lines[i];
Memo1.Text:=s;
end;

tak dziala lepiej i jest krotsze :)))--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

Można jeszcze prościej:

uses
strutils;

memo1.text:=ansireplacetext(memo1.text, #13, '')

*kolejność parametrów może być pomieszana---------------------------
Delphi 6

Pozdrówka

thenkles napisał:
Można jeszcze prościej:
&gt
Swieta racja, z mala poprawka:
memo1.text:=ansireplacetext(memo1.text, #13#10, '')
--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

To właśnie rzecz, którą kocham na tym forum. Każda kolejna osoba podaje coraz lepsze rozwiązanie. Można się sporo nauczyć (Zwłaszcza pq zadziwia mnie. W prawie każdym temacie znajduje lepsze rozwiązanie)--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Pomoc do Delphi po polsku. http://www.4programmers.net/forum/index.php?action=show&id=21335&c=2

Oficjalny kanał IRC serwisu 4programers:
serwer: warszawa.ircnet.pl sieć: POLNet kanał: #4programmers.net