Problem mit Tstringlist und ss sowie ß

[Franzelchen]

Zitat von Klaus01:

Vielleicht helfen Dir diese Infos etwas weiter.

Grüße
Klaus

Deine kurze Antwort finde ich am Besten, denn ich bin viel zu sehr Anfänger um mich mit API Funktionen auszukennen. Anbei die Lösung des Problems:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.Filename) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
codieren(Sender);
entdoppeln(Sender);
decodieren(Sender);

end;

procedure TForm1.codieren(Sender: TObject);
var
LB :TStringlist;
begin
LB:= TStringList.Create;
LB.Text:= RichEdit1.Text;
LB.Text:= StringReplace(LB.Text,'ß','SSSS',[rfReplaceAll]);
LB.SaveToFile('C:\neu3\test.txt');
LB.Free;
end;

procedure TForm1.entdoppeln(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
try
with SL do
begin
Sorted := True;
Duplicates := dupIgnore;
LoadFromFile('C:\neu3\test.txt');
end;
SL.SaveToFile('C:\neu3\test2.txt');
finally
SL.Free;
end;
end;

procedure TForm1.decodieren(Sender: TObject);
var
LB :TStringlist;
begin
LB:= TStringList.Create;
LB.LoadFromFile('C:\neu3\test2.txt') ;
LB.Text:= StringReplace(LB.Text,'SSSS','ß',[rfReplaceAll]);
RichEdit2.Text := LB.Text;
LB.SaveToFile('C:\neu3\test3.txt');
LB.Free;
end;


end.