Array
(
)

Problemas com string e char..

Faustoalves
   - 15 ago 2004

Estou com o seguinte problema..
#Código


procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
Linha:string;
begin
Text1.Lines.LoadFromFile(´c:\\Doctos\Teste.Rtf´);
for i := 0 to Text1.Lines.Count do
begin
Linha := Text1.Lines.Strings[i];
if Pos(´<CLINOM´,Linha) > 0 then
Linha[Pos(´<CLINOM>´,CdsCliCLINOM.Value)];
Text2.Lines.Add(Linha);
end;

end;

Este código esta me retornando o seguinte erro:

Error] Unit1.pas(69): Statement expected, but expression of type ´Char´
found
Exatamente nesta linha:
Linha[Pos(´<CLINOM>´,CdsCliCLINOM.Value)];


O que eu estou testando é uma forma de criar um editor de teste RichText onde eu possa fazer a substituição pelo conteúdo de um campo do arquivo.
Se alguém puder me ajudar, desde já agradeço

Fausto


Paulo_amorim
   - 16 ago 2004

Olá

O fato eh que vc nao está fazendo nada com o conteúdo. Seria como se vc fizesse

if Pos(´<CLINOM´,Linha) > 0 then
Linha[2]; <-- não faz nada!

Essa segunda linha não faz nada, daí ele reclama... creio que vc deveria fazer uma atribuição, imagino
#Código

Linha[Pos(´<CLINOM>´,CdsCliCLINOM.Value)] := ´alguma coisa´;


Espero que ajude
Até+