Łączenie

Siema!
Mam problem. Napisałem sobie taki kod:

for i:=0 to memo1.lines.count do memo2.text:= memo2.text + memo1.lines.strings[i]

i wszystko jest ładnie tylko nie o taki efekt mi chodziło. Potrzebuję takiego kodu aby wszystkie linnie połączyć ze sobą ale tak żeby nie było żadnej spacji, entera, tabulatora pomiędzy wyrazami. Jak to zrobić?
Dzięki

Nie wiem ,. może zamiast string[i] dać lines[i] jeśli się da.. - nie mam teraz Delphi aby sprawdzić..

Może po prostu zrzuć cały tekst do jednej zmiennej a potem usuń wszystkie "entery", "spacje" i tym podobne. Możesz posłużyć się przykładami podanymi w dziale artykuły >>Artykuł o stringach

Borek ma dobry pomysł. Zrzucasz do stringa, a potem funkcja Pos() znajdujesz i usuwasz Delete().

Pozdrawiam Kamil

Moim zdaniem lepiej w biegu :

var
    i : integer;
    s : string;
begin
    for i := 1 to Length(s) do begin
        if (s[i] <> ' ') and (s[i]<> #13) and
           (s[i] <> #10) and (s[i]<> #13)then begin
            Memo1.Lines.Text := Memo1.Lines.Text + s[i];
        end;
    end;
end;

s to ten twój string, co go chcesz wrzucić.