Guten Abend,
ich bastel an einer Shell-Imitation(Memo+Edit) als '
GUI' für ein kleines Textverschlüsselungsprogramm.
Delphi-Quellcode:
var
FText: TStringList;
procedure TForm1.Print;
var
iCount: Integer;
begin
for iCount:= 0 to FText.Count-1 do
Memo1.Lines.Add(FText.ValueFromIndex[iCount]);
end;
procedure TForm1.OpenFile(aPath: String);
begin
FText.LoadFromFile(aPath);
Print; //im Memo: 'est1'
FText.SaveToFile('./outp.txt'); //in der Textdatei: 'test1'
ShowMessage(FText.ValueFromIndex[0]); //Ausgabe: 'est1'
end;
Mein Problem ist, dass im Memo der erste Buchstabe jeder Zeile fehlt.
In meiner Testdatei steht:
test1
test2
test3
Wenn ich sie öffne kommt im Memo:
est1
est2
est3
Woran liegt das?? Man möchte ja fast meinen ValueFromIndex frisst den ersten Char. oO
(Wenn ihr mehr Quelltext braucht, sagt bescheid.)
MfG.