Ergebnis der Suchanfrage

• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Bischen Mitarbeit darf man doch von Dir erwarten, oder? :roll:
  
  Gruß :D Milo
• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Dann ist Deine Spalte 8 vermutlich ein formatiertes Textfeld.
  
  Gruß :D Milo
• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Testprojekt mit einem StringGrid auf der Form das mindestens 8 Spalten enthält. Die Anzahl der Zeilen ist mehr als zwei...:
  
  
  function TForm1.AchteSpalte: String;
  begin
  With AdvStringGrid1 do
  if Length(Cells) > 0 then
  Result := Cells
  else
  Result := '';
• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Sorry, Korrektur:
  
  
  procedure Form1.Button1Click(Sender:TObject);
  begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(AdvStringGrid1.Cells);
  end;
• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Oder:
  
  
  procedure Form1.Button1Click(Sender:TObject);
  begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(AdvStringGrid1.Cells);
  end;
• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Yepp, so habe ich die Anfrage verstanden. Da Andre vorher gesagt hat, dass die Zeile selektiert ist wird er vermutlich auch nur die selektierte Zeile mit der 8ten Spalte auslesen wollen. :)
  
  Ansonsten kann man es ja um eine Schleife erweitern, die "nCount = 0 to AdvStringGrid1.RowCount -1" durchzählt.
  
  Gruß :D Milo
• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Nimm einfach meine Funktion und weise den Wert der 8ten selektierten Spalte einem Datenbankfeld zu.
  
  
  ADOCommand.Parameters.ParamByName('param').Value := AchteSpalte;
  ADOCommand.Execute;
  
  
  Gruß :D Milo
• Forum: Datenbanken

  AW: TAdvStringGrid

   
    by milo, 23. Aug 2011
  Hallo,
  
  Function AchteSpalte:String;
  begin
  Result := '';
  With ADVStringGrid1 do
  If Length(Cells) > 0 then
  Result := Cells;
  end;