Preciso armazenar o conteúdo do Memo1
numa variável string, mas assim não funcionou:
sHTML := Memo1.Lines;
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadesHTML := Memo1.Text;
Assim irá funcionar, agora se você precisa de alguma coisa a mais, especifique na pergunta.
Pode ser feito feito das seguintes 3 formas, pode criar dois memos
e um botão
no evento onClick
do botão passa o seguinte código para ele:
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
AText: String;
begin
Memo2.Lines.Add('Option 1');
for i := 0 to Memo1.Lines.Count -1 do AText := AText + Memo1.Lines[i];
Memo2.Text := Memo2.Text + AText;
Memo2.Lines.Add('--------------------------------------------');
Memo2.Lines.Add('Option 2');
AText := Memo1.Lines.Text;
Memo2.Text := AText;
Memo2.Lines.Add('--------------------------------------------');
Memo2.Lines.Add('Option 3');
AText := Memo1.Text;
Memo2.Text := Memo2.Text + AText;
Memo2.Lines.Add('--------------------------------------------');
end;
A segunda e terceira opção são praticamente iguais, no entanto a primeira vai pegar apenas o texto de cada linha o que pode ser interessante em certas ocasiões, agora vai tudo depender das suas necessidades.
Se for variável -> sHTML := Memo1.Text;
Se for campo -> sHTML.AsString := Memo1.Text;