Hilfe bei Textdatei auslesen

[SirThornberry]

Und wiedermal poste ich die funktion die es eigentlich schon paar mal im Forum hier gibt.

Delphi-Quellcode:

function splitOutIndex(Source: String; Delimiter: String; Index: Integer): String; 
var count, number: Integer; 
    giveback: String; 
begin 
count := 1; 
number := 0; 
giveback := ''; 
while count <= length(Source) do 
begin 
  if copy(Source, count, length(Delimiter)) = Delimiter then 
  begin 
   number := number + 1; 
   count := count + length(Delimiter); 
  end else begin 
   if number = Index then giveback := giveback + Source[count]; 
   count := count + 1; 
  end; 
end; 
result := giveback; 
end;

Für Beispiele zur anwendung einfach mal das Forum nach splitOutIndex durchsuchen