String zerlegen

[DenSchub]

xZise: Keine der beidern Varianten funktioniert...

[Klaus01]

getestet und funktioniert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.create;
  sl.loadfromFile('e:\test.dat');
  sl.Text:=StringReplace(sl.text,':','=',[rfReplaceAll]);
  ValueListEditor1.strings.assign(sl);
  sl.free;
end;

wobei test.dat bei mir so ausssieht:

user:password
user1:password1
user2:password3

Grüße
Klaus

[DenSchub]

Joa!

Es funktioniert!
Danköö. :thumb:
Vllt seht ihr das Proggi bald in der OS-Sektion *mal überleg*

bye

Dennis

[marabu]

Hallo Dennis,

Zitat:

Zitat von DenSchub

Schau dir mal den Schreenshot an

ich hatte das nicht ausreichend getestet, da ich es für völlig problemlos hielt - tut mir leid. So habe ich getestet:

Delphi-Quellcode:

begin
  with VLE.Strings do
  begin
    NameValueSeparator := ':';
    Text := 'user1:password1' + sLineBreak + 'user2:password2';
    ShowMessage(Values['user2']);
  end;
end;

Die Ausgabe ist korrekt. Aufgrund deines ScreenShots habe ich das Problem untersucht und einen ärgerlichen Fehler in der VCL entdecken müssen. In der Methode GetCell() von TValueListEditor wird zur Ermittlung des Values nicht die property NameValueSeparator verwendet, sondern das Literal '='. Das habe ich nicht gewusst. Ich kann auch nicht auf Anhieb erkennen, warum für den internen Zugriff nicht die vorhandenen Methoden von ValueListEditor.Strings verwendet werden, die diesen Fehler ja nicht aufweisen.

Sorry nochmal.