Von einer Textdatei zeilen einlesen und abschneiden ?

[MisterNiceGuy]

Ach Schitte, du wolltest die Striche nicht mit in den String bekommen oder?
Warte...

Delphi-Quellcode:

function Cut_text(Ganzertext:string):string;
var i,j:integer;
    help_str:string;
begin
help_str:='';
j:=0;
  for i:=1 to length(GanzerText) do
    begin
     if ganzertext[i]='|' then
       j := j+1;
     if not ganzertext[i]='|' then
       help_str := help_str+ganzertext[i];
     if j=6 then break;
    end;
result := help_str;
end;

So müsste es gehen