Dateien in einer Stringliste oder TMemo importieren?

[smart]

Zitat von Sharky:

Zitat von smart:

...Vielen Dank für Deine Mühe. Da bekomme ich Fehlermeldungen:

Ups... da habe ich mich beim tippen der Funktion vertippelt

Delphi-Quellcode:

function PadR(aValue: string; aLen: byte; aFill: char): string;
  //right pads a string with spaces
begin
  Result := aValue + StringOfChar(aFill, aLen - Length(aValue));
end;

Hallo nochmal!

Jetzt bekomme ich diese Fehler:
[Fehler] Unit1.pas(50): Nicht genügend wirkliche Parameter
[Fehler] Unit1.pas(51): Nicht genügend wirkliche Parameter
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Heike.

[smart]

Zitat von marabu:

Das von Heike beschriebene Eingabeformat lässt sich aufgrund einer Design-Schwäche in der Komponente TStringList nicht über DelimitedText verarbeiten. Leerzeichen werden als Delimiter behandelt - ich hatte schonmal darauf hingewiesen...

Grüße vom marabu

Hallo marabu!

Schon fast richtig.

Delphi-Quellcode:

2210178000001   Paprika   1,69
2210179000000   Fettarmer Joghurt   0,59
2210177000002   Tomatenmark  0,89

Sollte so sein.

Delphi-Quellcode:

2210178000001   Paprika            1,69
2210179000000   Fettarmer Joghurt   0,59
2210177000002   Tomatenmark   0,89

Trozdem, danke für Deine Mühe.

[bigg]

Moin,

du benötigst in jedem Fall schonmal eine Blockschrift.
Die Gängiste wäre hier "Courier New".

Nun musst du alle Einträge durchgehen und den längsten Eintrag ermitteln.
(Den Längsten Eintrag der 1., der 2. und der 3 Reihe.)

Dannach füllst du alle Reihen mit Leerzeichen auf und fertig ist dein Memo.

[marabu]

Hallo Heike,

Zitat:

Schon fast richtig.

ich kann jetzt nicht erkennen, ob ein Fehler in meinem Code vorliegt oder in der Art, wie du ihn verwendest. Wenn du glaubst, dass ich irgendwo gepatzt habe, dann wäre es nett, wenn du den Fehler bezeichnest, damit ich ihn verbessern kann. Der Code ist sehr allgemein gehalten und es könnte noch jemand außer dir auf die Idee kommen ihn zu verwenden...

marabu