Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
13. Nov 2005
Ich bin auf eine andere Methode fast zum Ergebnis gekommen.
procedure TForm1.ConsoleKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
iLine: integer;
begin
iLine := Console.Perform(EM_LINEFROMCHAR, -1, 0);
if Key = VK_RETURN then
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
Geh du dich mal für deine Besserwisserei schämen, du hast es ja nicht nur zweimal gemacht :wink:
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
procedure TForm1.ConsoleKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
iLine: integer;
CommandList: TStringList;
begin
CommandList := TStringList.Create;
with CommandList do
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
Ach nee :roll: Aber wie macht man das mit Delphi ?
-
Ach ich idiot ... schon gut.
-
Nur was ist dann Comman bei dem Indexof ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
Und wie willst du überprüfen, ob der Befehl gültig oder ungültig ist ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
Danke :-D jetzt läuft es.
Wie könnte ich es machen, dass überprüft wird, ob es die Befehle überhaupt gibt ? Ich könnte es ja über eine Textdatei machen, in der alle Befehle stehen. Aber wie vergleiche ich das dann ? Dadurch wird der Code auch allgemein kleiner, da ich die if Abfragen nicht mehr für jeden Befehl benötige.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
Nein.
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i, i2: integer;
begin
i := 0; i2 := 0;
while i < Memo1.Lines.Count do begin
Inc(i2, Length(Memo1.Lines.Strings));
if i2 < Memo1.SelStart then Break;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i, i2: integer;
begin
i := 0; i2 := 0;
while i < Memo1.Lines.Count do begin
Inc(i2, Length(Memo1.Lines.Strings));
if i2 < Memo1.SelStart then Break;
Inc(i);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nils_13,
12. Nov 2005
Hi,
ich lese mit diesem Code die Zeile aus in der ich mich befinde
i := 0; i2 := 0;
while i < Memo1.Lines.Count do begin
Inc(i2, Length(Memo1.Lines.Strings));
if i2 < Memo1.SelStart then Break;
Inc(i);
end;