Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by H.Bothur,
9. Jun 2017
Wenn ich jemandem mal eine Testdatei geben soll .... müsste ich dann nur schnell umarbeiten weil im Moment sind das echte Kundendaten - dann mache ich das gerne :-)
Hans
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by H.Bothur,
9. Jun 2017
Das ist egal .. sowohl bei StrictDelimiter:=False als auch bei ":=True" knallt es :-(
Hans
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by H.Bothur,
9. Jun 2017
Hi,
Nein - jedenfalls nicht wenn ich die Datei mit Excel öffne - dann passt das.
bei Beginn: slRow.Count = 19
bei Fehler: slRow.Count = 20
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by H.Bothur,
9. Jun 2017
Komischerweise ... mit diesem Source:
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1Fuellen;
Memo2.Lines.Delimiter := ';';
Memo2.Lines.QuoteChar := '"';
Memo2.Lines.StrictDelimiter := false;
Memo2.Lines.DelimitedText := Memo1.Lines;
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by H.Bothur,
9. Jun 2017
Das passiert an der Stelle Fields.AsString := slRow;
DisableControls;
for i := 0 to slFile.Count - 1 do
begin
slFile := StringReplace(slFile, '"', '''', );
slRow.DelimitedText := slFile;
Append;
for j := 0 to slRow.Count -1 do
begin
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by H.Bothur,
7. Jun 2017
Ja ... der ist sehr nützlich, auch wenn ich ihn immer noch nicht ganz verstehe :-D Trotzdem .... vielen Dank !!
Hans
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by H.Bothur,
7. Jun 2017
Nicht ganz sauber - aber ich ersetzte jetzt das " durch ein ' :-)
Hans