Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
24. Mai 2019
Ich wollte mit meinem Beitrag eigentlich die unsinnige Diskussion über #13#10 und #10 beenden.
Falls ihr es nicht gemerkt habt. Das ist ein Code-Bibliothek Beitrag. Hier sollte nicht so viel diskutiert werden.
Macht einfach nach dem: slFile.LoadFromFile( Filename ); ein slFile.Text := slFile.Text und beendet diese Diskussion hier.
(Oder macht einen eigenen Thread mit dem Titel "unsinnige...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
17. Mai 2019
Hallo,
ich glaube Deine Lösung würde fehlschlagen, wenn in der 1. Zeile schon ein CRLF in einem Feld enthalten ist.
Wenn ich das beim Lesen richtig verstanden habe entfernst Du einfach die CRLF myString := myString + slFile;. Sie sind dann auch beim Speichern nicht mehr enthalten.
Ich würde noch einen anderen Ansatz vorstellen.
Man könnte die CRLF in den Quoted Fields auch per Regular...
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
9. Jun 2017
Was aber in diesem Beispiel keinen Unterschied macht. :-D
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
9. Jun 2017
Ich vermute es verwirrt ihn, das der selbe Datensatz im Helper einen Fehler wirft und im Beispiel funktioniert.
Aber es ist völlig egal. Wir können nur vermuten. Er wird es uns schreiben.
Er möchte wahrscheinlich "nur" die Allgemeine Schmutzverletzung weg haben :)
In Post #19 wird es auch richtig gemacht und funktioniert nicht.
Es wird 2 mal richtig gemacht. Einmal geht es und einmal nicht.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
9. Jun 2017
Was ihn verwirrt, ist das es kracht, obwohl die QuotedChar richtig gesetzt ist !!!
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
9. Jun 2017
Wenn Du den ganzen Beitrag gelesen hättest wüsstest Du was ihn verwirrt. :thumb: :stupid:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
9. Jun 2017
Die Fehlermeldung deutet auf einen Zugriff auf ein nicht erzeugtes Objekt.
Könnte es sein, das in der 1. Zeile weniger Felder definiert sind als in dieser Zeile.
Der Helper legt er "nur" die Anzahl der Felder an, die in der 1. Zeile stehen.
Das sollte ja auch nur als Beispiel dienen. ;-)
Welche Wert hat slRow.Count bei i=0 ?
Und welchen Wert hat es in der Zeile, die den Fehler wirft?
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
8. Jun 2017
Die Funktionalität ist quasi Bestandteil des TStrings Objekts ;-)
Das kannst Du ganz einfach testen. Lege zwei TMemo und einen TButton auf dein TForm.
Auf den TButton hinterlegst Du auf das OnClick Ereignis folgenden Text:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.Add(Memo1.Lines.DelimitedText);
end;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by MaBuSE,
7. Jun 2017
Hallo,
es freut mich, das der Code jemanden helfen konnte.
Ich hatte schon ganz vergessen, das ich das damals gemacht hatte. :stupid:
Viele Grüße
MaBuSE