Text String Split
Hello friends, I have a text that I separate with this command
var
len :integer;
s :string;
begin
s:= 'Have a nice day';
while s<>'' do
begin
len := pos(' ', s);
if len=0 then len := Length(s);
Memo1.Text:=h;(copy(s, 0, len));
s := copy(s, len+1, Length(s)-len);
end;
end;
The output is displayed in Memo1 = "day"
The problem is that only the last letter is displayed. I want to output all letters separately