Edit kopieren

[nahpets]

Wenn (fast) immer ein Leerzeichen zwischen Farbe und Zahl steht, könnte es auch so gehen:

Delphi-Quellcode:

procedure TForm1.CRDBGrid1DblClick(Sender: TObject);
var
          iPos : Integer;
begin
  iPos := Pos(' ',SQLQuery.FieldByName('TEST').Text);
  if iPos > 0 then begin
    Edit1.Text := Copy(SQLQuery.FieldByName('TEST').Text,1,iPos - 1);
  end else begin 
    Edit1.Text := SQLQuery.FieldByName('TEST').Text;
  end;
end;