Problemas com string e char..
15/08/2004
0
Estou com o seguinte problema..
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
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:
[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
Curtir tópico
+ 0
Responder
Posts
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
Espero que ajude
Até+
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)] := ´alguma coisa´;
Espero que ajude
Até+
Responder
Clique aqui para fazer login e interagir na Comunidade :)
