다른 프로 시저에서 생성 된 문자열 목록에 문자열을 저장하는 방법은 무엇입니까?

Question

내 절차에 도움이 필요합니다. 다른 프로 시저에서 만든 문자열 목록에 일부 문자열을 저장하고 싶습니다. 내가 어떻게 할 수 있니?

나는 그것을 더 잘 이해하기 위해 적절한 장소에 의견을 남겼습니다.

procedure GetIniNamesWithoutExt(IniPfade: TStringList); 
var 
    i, suchPunkt: integer; 
    ini: TIniFile; 
    Modul, fullFileName, IniName: String; 
begin 
    try 
    for i := 0 to IniPfade.Count-1 do 
    begin 
    fullFileName := IniPfade.Strings[i]; 
    Modul := ExtractFileName(fullFileName); // Dateiname aktueller Ini + .Ini Endung 
    suchPunkt := Pos('.', Modul); 
    IniName := Copy(Modul, 1, suchPunkt-1); // Aktueller Modulname ohne ini Endung 
    // Here should be the Code for saving the String "IniName" to a StringList which is created in procedure a. Procedure a calls the procedure GetIniNamesWithoutExt. 
    end; 
    finally 

    end; 
end; 

Answer 1

어떻게

procedure GetIniNamesWithoutExt(IniPfade, Module: TStrings); 
var 
    i, suchPunkt: integer; 
    ini: TIniFile; 
    Modul, fullFileName, IniName: String; 
begin 
    Module.BeginUpdate; 
    try 
    for i := 0 to IniPfade.Count-1 do 
    begin 
     fullFileName := IniPfade.Strings[i]; 
     Modul := ExtractFileName(fullFileName); // Dateiname aktueller Ini + .Ini Endung 
     suchPunkt := Pos('.', Modul); 
     IniName := Copy(Modul, 1, suchPunkt-1); // Aktueller Modulname ohne ini Endung 
     Module.Add(IniName); 
    end; 
    finally 
    Module.EndUpdate; 
    end; 
end; 

에 대한 및 절차 A에서 : 나는 당신의 의도,하지만 확실하지 않다

procedure A; 
var 
    Module: TStringList; 
begin 
    Module := TStringList.Create; 
    try 
    GetIniNamesWithoutExt(IniPfade , Module); 
    // Do Whatever you want with "Module" 
    finally 
    Module.Free; 
    end; 
end;