no se sea lo que buscas
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
linea: PChar;
txt: TStringList;
begin
txt := TStringList.Create;
try
txt.LoadFromFile('c:\Fichero\a\leer.txt');
for i := 0 to txt.Count - 1 do
begin
linea := PChar(txt.strings[i]);
OemToAnsiBuff(linea, linea, strlen(linea));
end;
RichEdit1.Lines.AddStrings(txt);
finally
txt.Free;
end;
end;
esto salio de Tmania 32
y es para tratar textos con acento no comillas pero algo es algo
__________________
www.cybervanet.cl
El matrimonio es como un submarino
puede flotar pero esta diseñado para hundirse
|