문자열에 키 - 값 쌍 목록을 저장하고로드하려면 어떻게합니까?

Question

문자열 목록과 바꿀 값이 있습니다. 저는 'O'='0',' .'='.', ...과 같은 목록에서 그들을 결합하려고합니다. 그래서 그것을 편집하고 더 많은 교체 쌍을 추가하는 것이 쉽습니다. 내가 생각할 수있는

지금 최선의 방법은 다음과 같습니다

var 
    ListaLimpeza : TStringList; 
begin 
    ListaLimpeza := TStringList.Create; 

    ListaLimpeza.Delimiter := '|'; 
    ListaLimpeza.QuoteChar := '"'; 
    ListaLimpeza.DelimitedText := 'O=0 | " .=."'; 

    ShowMessage('1o Valor = '+ListaLimpeza.Names[1]+' e 2o Valor = '+ListaLimpeza.ValueFromIndex[1]); 

처럼이 작품,하지만 난 (예 : ' .'의 경우) 이전 문자열을 코딩 할 수 없기 때문에 그것은, 비주얼하지 좋은 ((" .)와 같아서 =은 TStringList에 이름과 값을 할당합니다.

Answer 1

기본적으로 Names과 Values은 Windows INI 파일 형식으로 =으로 구분해야합니다. AFAICT로 구분 기호를 변경할 방법이 없습니다. @SirRufo가 주석에 표시 했으므로 (내가 알지 못했던) TStringList.NameValueSeparator 속성을 사용하여 변경할 수 있습니다.

이 당신에게 당신이 무슨 생각하지 않은, 당신의 TStringList에 무엇 델파이 생각의 아이디어를 줄 것이다 :

TStringList이이 출력을 생성

을

procedure TForm1.FormCreate(Sender: TObject); 
var 
    SL: TStringList; 
    Temp: string; 
    i: Integer; 
begin 
    SL := TStringList.Create; 
    SL.Delimiter := '|'; 
    SL.QuoteChar := '"'; 
    SL.StrictDelimiter := True; 
    SL.DelimitedText := 'O=0 | ! .!=!.!'; 
    Temp := 'Count: ' + IntToStr(SL.Count) + #13; 
    for i := 0 to SL.Count - 1 do 
    Temp := Temp + Format('Name: %s Value: %s'#13, 
       [SL.Names[i], SL.ValueFromIndex[i]]); 
    ShowMessage(Temp); 
end; 

이름/값은 아마도 당신이 필요로하는 것을하지 않을 것입니다. 실제 목표가 무엇인지는 분명하지 않지만 간단한 파일 목록 인 text|replacement을 사용하고 해당 파일을 평문으로 파싱하는 것이 효과적이며 그 파일에서 읽기/쓰기에는 TStringList을 쉽게 사용할 수 있지만, 직접 파싱을하는 것 외에는 파싱을 쉽게 할 수있는 방법을 찾지 마십시오. 당신이 그들을 구문 분석 할 때 쌍을 저장하는 배열을 사용할 수 있습니다

당신은 당신이 추가/수정/교체 쌍을 삭제하고 그냥 다시 쓰기 읽기 동작을 반대로 할 필요가 무엇이든지 제어 채울 수 있습니다

type 
    TReplacePair = record 
    TextValue: string; 
    ReplaceValue: string; 
    end; 

    TReplacePairs = array of TReplacePair; 

function GetReplacementPairs: TReplacePairs; 
var 
    ConfigInfo: TStringList; 
    i, Split: Integer; 
begin 
    ConfigInfo := TStringList.Create; 
    try 
    ConfigInfo.LoadFromFile('ReplacementPairs.txt'); 
    SetLength(Result, ConfigInfo.Count); 
    for i := 0 to ConfigInfo.Count - 1 do 
    begin 
     Split := Pos('|`, ConfigInfo[i]; 
     Result[i].TextValue := Copy(ConfigInfo[i], 1, Split - 1); 
     Result[i].ReplaceValue := Copy(ConfigInfo[i], Split + 1, MaxInt); 
    end; 
    finally 
    ConfigInfo.Free; 
    end; 
end; 

저장합니다.