Dateien in einer Stringliste oder TMemo importieren?

[smart]

Wie kann man solchen Dateien in einer Stringliste oder TMemo formatiert importieren?

Delphi-Quellcode:

2210030000002;Truthahnwurst;1,49
2210031000001;Cordon Bleu;4,29
2210032000000;Gyros;3,99
2210033000009;Gewürze;0,89

Das ganze sollte dann so aussehen.

Delphi-Quellcode:

2210030000002    Truthahnwurst   1,49
2210031000001    Cordon Bleu     4,29
2210032000000    Gyros           3,99
2210033000009    Gewürze         0,89

Hat Einer von Euch schon mal so was gemacht?

[barf00s]

vllt klappts ja wenn du die semikoli mitnem tabulatorchar ersetzt und dann in nen memo paxt

[Thanatos81]

Schau dir mal bei der TStringList Delimiter und DelimitedText an, das dürfte dir weiterhelfen.

Ansonsten hab ich irgendwo noch Code rumliegen, um CSV-Text in ein StringGrid zu importieren. Der dürfte mit einigen kleineren Anpassungen auch für deine Anforderung geeignet sein.

[smart]

Ich habe schon versucht mit StringReplace ein Tabulatorchar zu setzen klappt auch, aber damit bekomme ich keine feste Breite hin.

[Thanatos81]

Hab das Projekt wieder gefunden, vllt. hilfts dir ja weiter

€dit:
Die Prozeduren ReadCSVFile und WriteCSVFile kommen im Original irgendwo ausm Netz, ich hab die auch lediglich an meine Zwecke angepasst.

[barf00s]

das du das ganze inner TListView organisierst - würde für dich nicht in frage kommen, oder?

[malo]

Du könntest ja prüfen, ob das Semikolon an einer bestimmten Stelle ist (Pos) und wenn nicht, ein Leerzeichen davorsetzen. Und das solange, bis es an der richtigen Stelle steht (danach löschen).

Ich würde dir jetzt einen Beispielcode schreiben, aber ich weiß grad nicht, wie man ein Zeichen "da zwischen" einfügen kann und hab kein Delphi zum probieren da ;)

[marabu]

Hallo Heike,

nur für die Anzeige kannst du ein Memo verwenden, wenn du einen fixed width font einstellst und die Spaltenwerte links oder rechts mit Leerstellen auffüllst. Dabei fehlt dir dann eine Spaltenüberschrift. Also lieber gleich mit einem StringGrid.

Grüße vom marabu

[barf00s]

@malo "Insert()" wäre dein Freund zum "Einfügen"

[smart]

Vielen Dank schonmal für Eure Antworten. Ich komme aber nicht wirklich weiter. Bei der Ausgabe in einem TMemo bekomme ich einfach die feste Breite nicht hin!