// Cria campo com múltiplas linhas para testecLine := "Linha 01 Linha 01 Linha 01 Linha 01 "+CRLFcLine += "Linha 02 Linha 02 Linha 02 Linha 02 "+CRLF //----------------------------------------------// 1o - Faz leitura de toda a linha//----------------------------------------------// Lê a primeira linhacLinha01 := MemoLine( cLine,,1 ) // Lê a segunda linhacLinha02 := MemoLine( cLine,,2 ) // ExibeMsgAlert( "Linha 01-> " + cLinha01 + CRLF +; "Linha 02-> " + cLinha02 )//----------------------------------------------// 2o - Faz leitura definindo largura da linha//----------------------------------------------// Lê a primeira linha [14 Caracteres]cLinha01 := MemoLine( cLine, 14, 1 ) // Lê a segunda linha [14 Caracteres]cLinha02 := MemoLine( cLine, 14, 2 ) // ExibeMsgAlert( "Linha 01-> " + cLinha01 + CRLF +; "Linha 02-> " + cLinha02 )