strings aus txt file lesen

[agm65]

nochmal guten abend leute...

naja nun zu meinem problem...
also ich möchte aus einer txt file mehere strings auslesen, die strings sind getrennt durch einen
':'. ich weiss also immer den ersten teil der stings: bsp:


name1: string
name2: string
name3: string


und jetzt möchte ich nur diese strings auslesen, die namen vor dem ':' sind immer die selben !

Code:

if s <> '' then
    begin
    KeyPath := s + '\dir\textfile.text;
    if FileExists(KeyPath) then
    begin
    AssignFile(F, KeyPath);
    Reset(F);
    ReadLn(f,s) ;  // eine split funktion geziehlt auf die werte name1-X  
     
 
    CloseFile(F);
    end;
    end;

was muß ich meiner funktion hinzufügen, damit er mir alle stings (name1-X) ausgibt ?



danke euch allen ....