In der Function
Delphi-Quellcode:
function Tomds.GetFamName(x:Integer):String; //Get FamName
begin
result:= trim(copy(MeineString_List.Strings[x],71,30)); //x ist die aktuelle Zeile
end;
MeineString_List.Strings[x],
71,30
71 ist die Position wo der gewünschte Text beginnt
30 ist die Anzahl der gewünschten länge die Kopiert werden soll.
Mußt du natürlich an deine Txt-Datei anpassen.