Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jun 2008
Schau Dir nochmal meinen Kommentar in #20 genau an :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jun 2008
Nun hast Du aber die erste Datei doppelt.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jun 2008
Dann lade doch die erste Datei gleich in sl2. sl1:= TStringList.Create;
sl2:= TStringList.Create;
if FileListBox1.Items.Count > 0 then
sl2.LoadFromFile(FileListBox1.Items);
for i := 1 to FileListBox1.Items.Count - 1 do // 0 in 1 ändern, sonst doppelt
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
5. Jun 2008
Ich würde es mal so versuchen:sl1.LoadFromFile(FileListbox1.Items);
if sl1.Count > 0 then
sl1.Delete(0);
Klaus war schneller
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
Nichts gegen die Jedis, aber für so einen "Pipifax" würde ich die nicht installieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
Ich würde auf Length(trim(...)) abfragen, aber kommt ja aufs Gleiche raus.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
Welcher Zeile? Bist Du sicher, dass sie leer ist, oder stehen da evtl. Leerzeichen drin?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
for i := 0 to FileListBox1.Items.Count - 1 do
begin
sl1.LoadFromFile(FileListbox1.Items);
for x := Pred(sl1.Count) downto 0 do //rückwärts, sonst Bumm
begin
if ((sl1) = '') then
begin
sl1.Delete(x);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
Du brauchst 2 Schleifen: die äußere für die Dateien und die innere für die Zeilen der aktuellen Datei.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
4. Jun 2008
Ich würde die Zeilen nicht im StringGrid löschen, sondern beim Einfügen gleich filtern.