(Gast)
n/a Beiträge
|
Re: ListView - mit Dateien füllen und auf Inhalt prüfen
4. Sep 2007, 20:29
Geht leider nicht: Inkompatible Typen Integer und TListItem!
Delphi-Quellcode:
//TxT Datei öffnen
procedure TForm3.FormCreate(Sender: TObject);
var Datei: Textfile;
ZeileIndex, SpalteIndex: integer;
Zeile: string;
begin
//ShowMessage(ExtractFilePath(ParamStr(0))+'DATEN\');
assignfile(Datei, ExtractFilePath(ParamStr(0))+'DATEN\'+Form1.ListView1.Items[Form1.ListView1.Selected].Caption);
reset(Datei);
ZeileIndex:=0;
while not EoF(Datei) do
begin
readln(Datei, Zeile);
SpalteIndex:=0;
while pos(chr(9), Zeile) <> 0 do
begin
sgInhalt.Cells[SpalteIndex, ZeileIndex]:=copy(Zeile ,1 ,pos(chr(9), Zeile)-1);
delete(Zeile, 1, pos(chr(9), Zeile));
inc(SpalteIndex);
end;
sgInhalt.Cells[SpalteIndex, ZeileIndex]:=Zeile;
inc(ZeileIndex);
//Tabelle automatisch um 1 Zeile erhöhen
sgInhalt.RowCount:=sgInhalt.RowCount+1;
end;
CloseFile(Datei);
//letzte Zeile ist zuviel -> überstehende Zeile Löschen
sgInhalt.RowCount:=sgInhalt.RowCount-1;
end;
|
|
Zitat
|