load table to listview

Function salg: string;
var
  Tempstr : String;
begin
  Form1.MySQLTable9.First;
  Form1.ListView4.Clear;
  Form1.ListView4.Items.BeginUpdate;
  While Not Form1.MySQLtable9.Eof do
  begin
    If (Form1.MySQLtable9.fieldByName('MainOrderType').AsInteger =2 ) then
    begin
    with Form1.ListView4.Items.Add do
    begin
      Caption:='';
      ImageIndex:=-1;
      Subitems.Add(Form1.MySQLtable9.fieldByName('Custnr').AsString+'-'+Form1.MySQLtable9.fieldByName('CustOrderNum').AsString);
      Subitems.Add(nav);
      if Form1.MySQLtable9.fieldByName('OfferDate').AsDateTime > date then Subitems.Add(Form1.MySQLtable9.fieldByName('OfferDate').AsString)
      else
      Subitems.Add'';
      end;
      Subitems.add(Tempstr);
      Data:=pointer(strtoint(Form1.MySQLtable9.fieldByName('MainOrdernum').AsString));
    end;
    end;
    Form1.MySQLtable9.Next;
  end;
  Form1.ListView4.Items.EndUpdate;
end;

virker det også uden brug af sql?
jeg har defineret 12 colonner i min listview, hvordan med rækkefølgen af de indlæste fields?

Ja det virker også uden sql

begin
  Form1.Table1.First;
  Form1.ListView1.Clear;
  Form1.ListView1.Items.BeginUpdate;
  While Not Form1.table1.Eof do
  begin
    with Form1.ListView4.Items.Add do
    begin
      Caption:=''; //første colonne
      ImageIndex:=-1;
      Subitems.Add(Form1.table1.fieldByName('xxxx').AsString; // anden collone
      Subitems.Add(xxxxx); // 3 collone
      ....
      Subitems.Add(xxxxx); // 11 collone
    end;
  Data:=pointer(strtoint(Form1.table1.fieldByName('index').AsString));
  end;
  Form1.table1.Next;
end;
Form1.ListView1.Items.EndUpdate;
end

i mit eks. er colone 1 tom den kan også indeholde data

Caption:=form1.fielsbyname('ggg').asstring;

får mange compiler fejl.

hvad er data:= pointer...... skal den ikke defineres

Listview1.clear ??
er det ikke Listview1.columns.Clear;

Lad mig se din kode..

Nej skal ikke defineres

Ja ListView1.Clear;

:-)

Hvilken delphi køre du med?

var str2 : string;
begin
str2:=inttostr(integer(ListView1.Selected.Data));
end;

delphi 5 interprise

lad mig se din kode

eller fortæl mig hvilke fejl du får of vis mig linien der er fejl i hvis du ikke vil vise mig det hele

fejl her på følgende:

ListView1.Clear;

undeclared identifier 'Clear'


Subitems.Add(table1.fieldByName('xxxx').AsString;

unit1.pas[42]']'expected but ';' found

øhh

skal bruge lidt mere af koden, hvor skriver du det? i en procedure eller i en function

har prøvet begge dele med samme fejlmelding
jeg har nu kun 1 fejl

Function LoadTable: string;
var
str2 : string;
begin
  Form1.Table1.First;
  Form1.ListView1.Columns.Clear;
  Form1.ListView1.Items.BeginUpdate;
  While Not Form1.table1.Eof do
  begin
    with Form1.ListView1.Items.Add do
    begin
      Caption:=''; //første colonne
      ImageIndex:=-1;
      Subitems.Add(Form1.table1.fieldByName('Navn').AsString; //<---fejl her
      Subitems.Add('Adr'); // 3 collone
      Subitems.Add('Tlf'); // 11 collone
    end;
str2:=inttostr(integer(Form1.ListView1.Selected.Data));
end;
Form1.table1.Next;
Form1.ListView1.Items.EndUpdate;
end;

fejlen er )hæ den mangler ss



Subitems.Add(Form1.table1.fieldByName('Navn').AsString);

nu er der ingen fejl men der bliver ikke indlæst data i listview

hmm får en accesviolation når jeg kører funktionen -

loadtable;

dit listview skal være sat op til vsReport i viewstyle

den er sat til vsreport

Function LoadTable: string;
var
str2 : string;
begin
  Form1.Table1.First;
  Form1.ListView1.Columns.Clear;
  Form1.ListView1.Items.BeginUpdate;
  While Not Form1.table1.Eof do
  begin
    with Form1.ListView1.Items.Add do
    begin
      Caption:=''; //første colonne
      ImageIndex:=-1;
      Subitems.Add(Form1.table1.fieldByName('Navn').AsString);
      Subitems.Add('Adr'); // 3 collone
      Subitems.Add('Tlf'); // 11 collone
    end;
  Data:=pointer(strtoint(Form1.table1.fieldByName('navn').AsString));
end;
Form1.table1.Next;
Form1.ListView1.Items.EndUpdate;
end;

Data:=pointer(strtoint(Form1.table1.fieldByName('navn').AsString)); ?? Data

hvad heddder dit index field i databasen?

Data:=pointer(strtoint(Form1.table1.fieldByName('navn').AsString));

det skal ind istedet for navn

er data = mit index navn?

nej

Data:=pointer(strtoint(Form1.table1.fieldByName('indsæt index her').AsString));

data skal ikke defineres da det er inde i 'with listview1 do' hvilket svare til:

listview1.data