Aktuelle Zeile auslesen ...

[Nils_13]

Hi,

ich lese mit diesem Code die Zeile aus in der ich mich befinde

Delphi-Quellcode:

  i := 0;  i2 := 0;
  while i < Memo1.Lines.Count do begin
    Inc(i2, Length(Memo1.Lines.Strings[i]));
    if i2 < Memo1.SelStart then Break;
    Inc(i);
  end;

Der ganze Code:

Delphi-Quellcode:

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[i]));
    if i2 < Memo1.SelStart then Break;
    Inc(i);
  end;

  if Key = VK_Return then
  begin
    if LowerCase(IntToStr(i)) = '#exit' then Application.Terminate;
  end;
end;

Warum passiert nichts, wenn ich '#exit' eintippe und Return drücke ?

[jim_raynor]

Lowercase(i) wird auch nie #exit ergeben ;) Müsste ehr Lowercase(Memo1.Lines[i]) heissen, nicht wahr ;)

[Nils_13]

Delphi-Quellcode:

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[i]));
    if i2 < Memo1.SelStart then Break;
    Inc(i);
  end;

  if Key = VK_Return then
  begin
    if Lowercase(Memo1.Lines[i]) = '#exit' then Application.Terminate;
  end;
end;

Läuft immer noch nicht.

[Khabarakh]

Wie wäre es, wenn du einfach mal den Debugger zur Hand nimmst und die Variableninhalte prüfst?

[CalganX]

Hi,
überleg mal bitte: wenn du Enter drückst (=> in die nächste Zeile springst), prüfst du den Inhalt dieser neuen Zeile auf den Wert #exit. Aber im Normalfall steht in dieser Zeile ja noch nichts, weil du gerade erst in sie reingesprungen bist/sie erzeugt hast.
Wo musst du also den Wert überprüfen? Auf jeden Fall nicht in der i. Zeile.

Chris

[Neutral General]

... sondern in der i-1 Zeile.

[Nils_13]

Zitat:

Zitat von Neutral General

... sondern in der i-1 Zeile.

Nein.

Delphi-Quellcode:

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[i]));
    if i2 < Memo1.SelStart then Break;
    Inc(i);
  end;

  if Key = VK_Return then
  begin
    if Lowercase(Memo1.Lines[i-1]) = '#exit' then Application.Terminate;
  end;
end;

Passiert nichts. Was brinbgt mir außerdem der Debugger ? Es tauchen ja keine Fehler auf.

[marabu]

Hallo Nils,

kommst du damit zurecht?

Delphi-Quellcode:

procedure TDemoForm.MemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  iLine: integer;
begin
  iLine := Memo.Perform(EM_LINEFROMCHAR, -1, 0);

  if (Key = VK_Return) and (LowerCase(Memo.Lines[iLine]) = '#exit') then
    Application.Terminate;
end;

Grüße vom marabu

[Nils_13]

Zitat:

Zitat von marabu

Hallo Nils,

kommst du damit zurecht?

Delphi-Quellcode:

procedure TDemoForm.MemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  iLine: integer;
begin
  iLine := Memo.Perform(EM_LINEFROMCHAR, -1, 0);

  if (Key = VK_Return) and (LowerCase(Memo.Lines[iLine]) = '#exit') then
    Application.Terminate;
end;

Grüße vom marabu

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.

[Khabarakh]

Zitat:

Zitat von Nils_13

Was brinbgt mir außerdem der Debugger ? Es tauchen ja keine Fehler auf.

Wenn ein Programm nicht macht, was es soll, ist das ja wohl ein Fehler :stupid: . Wie gesagt, du hättest die Variableninhalte (und Lines) überprüfen sollen.
http://www.delphipraxis.net/internal...ct.php?t=47972