DBGrid til Streng

gennemløber det dataset som dit dbgrid peger på og læser det over
i din streng


procedure TForm1.Button1Click(Sender: TObject);
var
  MinStreng : String;
begin
  MinStreng := '';
  with DataSource1.DataSet do
  begin
    first;
    while not Eof do
    begin
      MinStreng := MinStreng + FieldByName('MitKolonneNavn').AsString;
      Next;
    end;
  end;
end;

Dvs. jeg slet ikke behøver en skide DBGrid?

Ikke med mindre du vil se dine data.

du har vel data i en tabel eller et query, gør følgende

procedure TForm1.Button1Click(Sender: TObject);
var
  MinStreng : String;
begin
  MinStreng := '';
  with Table1 do  <----- RET HER TIL DIN TABLE ELLER QUERY
  begin
    first;
    while not Eof do
    begin
      MinStreng := MinStreng + FieldByName('MitKolonneNavn').AsString;
      Next;
    end;
  end;
end;

fair nok! Jeg henter data via et Query, og jeg syns det var bøvlet at skulle ha' DBGrid for at øge nogle felter igennem... :)
Takker

Hvis du lige har sagt open til dit Query kan du
sparre linien med First, da dit dataset altid
står ved første post efter en open

Jeg stødte lige på et problem med følgende:

procedure TMainForm.Button1Click(Sender: TObject);
var
  Str: String;
begin
  with Query do
  begin
    with SQL do
    begin
      Clear;
      Add('SELECT * FROM users');
      Add('WHERE list LIKE :soegparam');
      Query.ParamByName('soegparam').Value := '%20202%';
    end;
    Open;
  end;
  Str := '';
  with DataSource.DataSet do
  begin
    while not Eof do
    begin
      Str := Str+FieldByName('id').AsString+',';
      Next;
    end;
  end;
  ShowMessage(Str);
end;

Jeg får en stor, fæl fejl "Access Violation at address blabla:blabla"

tja på hvilken linie sker det, kan du ikke debugge dig frem til det rigtige sted ?

procedure TMainForm.Button1Click(Sender: TObject);
var
  Str: String;
begin
  with Query do < QUERY ER VEL NAVNET PÅ KLASSEN; OG IKKE PÅ DIT QUERY ??
  begin
    with SQL do
    begin
      Clear;
      Add('SELECT * FROM users');
      Add('WHERE list LIKE :soegparam');
      Query.ParamByName('soegparam').Value := '%20202%';
    end;
    Open;
  end;
  Str := '';
  with DataSource.DataSet do <--HER SKRIVER DU DET RIGTIGE NAVN PÅ DIT QUERY F:EKS QUERY1 ISTEDET FOR DATASOURSE.DATASET
  begin
    while not Eof do
    begin
      Str := Str+FieldByName('id').AsString+',';
      Next;
    end;
  end;
  ShowMessage(Str);
end;

takker - nu virker det :)

ok