eliza
14 de Octubre del 2003

hola quiciera que me ayudaran como puedo leer un fichero y que me permita accder a cada caracter para encontar un especifico
ejemplo:
agua: clorada
que pueda quitar los dos puntos: y las palabras que quedan asignarlas a variables .
ejemplo:

var1---- agua
var2---- clorada

navi_jr
14 de Octubre del 2003

Bueno si se trata de un txt, lo que debes hacer es lo siguiente

procudure obtenLetras
Var
Lista : TStringList;
linea : String;
i ,ipos: Integer;
Begin
Lista := TStringList.Create;
lista.loadFromFile('c:texto.txt');
for i := 0 to lista.items.count - 1 do
begin
linea := lista.Strings
ipos := pos(':',linea)
var1 := copy(linea,1,ipos -1)//para que solo te copie hasta la palabra
var2:= copy(linea,ipos+1,length(linea)) // para que copie a partir de los ':'
end;
end

Espero te sirva y si tienes que sacar n palabras usa la funcion delete, y ve eliminando el contenido de linea, para ir tomando las palabas de linea, o en un ciclo!
Saludos