15/08/2004

Problemas com string e char..

Estou com o seguinte problema..
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&93;;
    if Pos(´<CLINOM´,Linha) > 0 then
     Linha&91;Pos(´<CLINOM>´,CdsCliCLINOM.Value)&93;;
    Text2.Lines.Add(Linha);
  end;

end;

Este código esta me retornando o seguinte erro:
[b:d15a8987ae]
Error] Unit1.pas(69): Statement expected, but expression of type ´Char´
found
Exatamente nesta linha:
[color=red:d15a8987ae]Linha[Pos(´<CLINOM>´,CdsCliCLINOM.Value)];[/color:d15a8987ae]

[/b:d15a8987ae]
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


Faustoalves

Respostas

16/08/2004

Paulo_amorim

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
Linha[Pos(´<CLINOM>´,CdsCliCLINOM.Value)&93; := ´alguma coisa´;


Espero que ajude
Até+


Responder Citar