TXT Zerlegen ???

[Schuster]

Also ich würde deine Txt Datei in eine Stringlist einlesen und dann dort bearbeiten.

z.b. wenn der Name immer an der selben Position ist (Wenn bla bla immer gleich ist)

Delphi-Quellcode:

function Tomds.LadeOmds(Pfad:String):boolean;                                    //Lade Txt-Datei
begin
MeineString_List:=TStringlist.Create;

    try
        MeineString_List.LoadFromFile(Pfad);
    except
    begin
        result:= false;
        ShowMessage('Fehler beim Laden der Datei');
        exit;
    end;
    end;
    result:= true;
end;

function TOmds.OmdsCount():integer;                                             //Anzahl Datensätze
begin
    result:= MeineString_List.Count -1;
end;

function Tomds.GetFamName(x:Integer):String;                                      //Get FamName
begin
   result:= trim(copy(MeineString_List.Strings[x],71,30));  //x ist die aktuelle Zeile
end;                                                       //die durch die func OmdsCount ermittelt wird

Auf diese Art kannst du alle Zeilen durchackern