übergabe des inhaltes eines editfeldes in sql

[blawen]

Zitat von milos:

Zitat von Rippo:

ich hab noch eine frage

wie mache ich es dass wenn ich im edit feld z.b : '01' eintippe dannach ein punkt kommt?

Hi,

Ich glaube da hat gerade keiner verstanden was du da genau meinst Vielleicht solltest du uns sagen was du erwartest und wo ein Punkt "kommen" soll Ein wenig Code bei dem du dein Vorhaben schon versucht hast und ein Fehler drin liegt ist auch nicht schlecht.

Freundliche Grüsse

Ich vermute mal, das er die Eigenschaft "NumbersOnly" gesetzt hat. Falls ja, diese wieder deaktivieren und die Kontrolle übernehmen:

Delphi-Quellcode:

procedure TForm1.edZahlenfeldKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', FormatSettings.DecimalSeparator, #8])
    then key:= #0;
end;

[nahpets]

Na, dann rate ich mal mit:

Man könnte die Frage auch so verstehen, dass nach der Eingabe von zwei Ziffern automatisch ein Punkt angehängt wird. Also eventuell sowas:

Delphi-Quellcode:

procedure TForm1.edZahlenfeldKeyPress(Sender: TObject; var Key: Char);
begin
  // Nur Ziffern zulassen, andernfalls raus.
  if not (key in ['0'..'9']) then begin
    key:= #0;
    exit;
  end;
  // Sind zwei Ziffern im Edit?
  if Length(edZahlenfeld.Text) = 2 then begin
    edZahlenfeld.Text := edZahlenfeld.Text + '.';
  end;
  // Oder eher sowas?
  if Length(edZahlenfeld.Text) = 2 then begin
    edZahlenfeld.Text := edZahlenfeld.Text + FormatSettings.DecimalSeparator;
  end;