Eu fiz Uma função.
Primeira a tentativa ela tirava o ultimo #9 de cada "tab".
Mas nao adiantou depois substitui o ultimo #9 por um #8.
Nenhuma resolveu alguma solução???????
function Unindent (sCodigo : widestring): widestring;
var i :integer;
strin,Resultado, a :String;
passa :boolean;
begin
passa := false;
strin := sCodigo;
Resultado := '';
for i := 1 to Length(strin) do
begin
if ((strin[i] = ''#9'') and (strin[i + 1] <> ''#9'')) then
begin
strin[i] := ''#8'';
continue;
end;
Resultado := Resultado + strin[i];
passa:=False;
end;
Result := Resultado;
end;
--- Em delphi-br@yahoogrupos.com.br, "Gabriel Herdt"
<[EMAIL PROTECTED]> escreveu
>
> PEssoal Como posso dar um Unindent em um valor de variavel string?
>
> Ex:
> aaaaaaaaa
> bbbbbbbbbb
> cccccccccccc
> ddddddddddddd
> Ficar
>
> aaaaaaaaa
> bbbbbbbbbb
> cccccccccccc
> ddddddddddddd
>
>
> Essa valor dentro de uma string ficaria assim:
> Variavel =
> 'aaaaaaaaa'#$A#9'
> bbbbbbbbbb'#$A#9#9'
> cccccccccccc'#$A#9#9#9'
> ddddddddddddd'
>
> Resumindo eu quero dar um Unindent no valor da string
>
