Hallo Leute,
zum Einlesen einer
csv-Datei in meine Datenbank benutze ich zwei Stringlisten:
Delphi-Quellcode:
....
var
masterslist : TStringList;
detailslist : TStringList;
index : Integer;
begin
masterslist := TStringList.Create;
detailslist := TStringList.Create;
try
detailslist.Delimiter := ';';
masterslist.LoadFromFile(Edit_DATEI.Text);
for index := 1 to Pred (masterslist.Count) do
begin
detailslist.Clear;
detailslist.DelimitedText := '"' + StringReplace(masterslist.Strings[index],';','";"',[rfReplaceAll]);
//ShowMessage(masterslist.Strings[index]);
//ShowMessage(detailslist.Strings[3]);
....
Wenn ich mir die Strings der Masterlist ansehe (showMessage) dann stimmt noch alles, sehe ich mir den letzten String in der Detailslist an, dann fehlt der letzte Buchstabe des String. Wenn hinter dem letzten Buchstaben, also vor dem Zeilenende, ein Leerzeichen steht, dann fehlt der letzte Buchstabe nicht. Ich hab keine Ahnung, woran das liegen kann?!? Ich hoffe ihr könnt mir da weiterhelfen und habt evtl. einen Tip, wie ich das Problem lösen kann?!?!
Danke schonmal!
Jana