FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
bueno, sin probarlo y a grandes rasgos....
Código:
var str : string; F : TextFile; MyCadena : string; i : integer; begin AssignFile(F, 'c:\lolo.txt'); Reset(F); MyCadena := ''; while not EOF(F) do begin Readln(F, str); for i := 1 to length(str) do begin if str[i] <> '"' then MyCadena := MyCadena + str[i]; end; end; CloseFile(F); end; |
|
|
|