Nicht erklärbare AV

[Teekeks]

Hallo!
Ich habe wiedereinmal ein Problem:

Delphi-Quellcode:

procedure Scan(TheLine:string);
var x:integer;
begin
  SetLength(Tokens,0);
  X:=1;
  while not (x=Length(TheLine)-1) do
  begin
    if TheLine[x] in ['+','-','*','/','(',')'] then
    begin
      SetLength(Tokens,Length(Tokens)+1);
      Tokens[High(Tokens)]:=TheLine[x];
    end else
    if TheLine[x] in ['a'..'z','A'..'Z'] then// Hier wird eine External AV ausgelößt...
    begin
      SetLength(Tokens,Length(Tokens)+1);
      Tokens[High(Tokens)]:=Tokens[High(Tokens)]+TheLine[x];
      while TheLine[x+1] in ['a'..'z','A'..'Z'] do
      begin
        Inc(X);
        Tokens[High(Tokens)]:=Tokens[High(Tokens)]+TheLine[x];
      end;
    end else
    if TheLine[x] in ['0'..'9'] then
    begin
      SetLength(Tokens,Length(Tokens)+1);
      Tokens[High(Tokens)]:=Tokens[High(Tokens)]+TheLine[x];
      while TheLine[x+1] in ['0'..'9'] do
      begin
        Inc(X);
        Tokens[High(Tokens)]:=Tokens[High(Tokens)]+TheLine[x];
      end;
    end;
    Inc(X);
  end;
end;

// Hier wird "Tokens" ausgegeben:
procedure DoOutputTokens;
var x:integer;
begin
  WriteLn('*******************');
  WriteLn('NextLine:');
  for x:=0 to High(Tokens) do
    WriteLn('Token: '+Tokens[x]);
end;

// Aufgerufen wird so:
  while not EOF(Datei) do
  begin
    ReadLn(Datei,ActLine);
    Scan(ActLine);
    DoOutPutTokens;
  end;

Angezeigt bekomme ich das hier:

Zitat:

******************
NextLine:
Token: Hallo
Token: 712
Token: +

Die Zu behandelnde Datei siet so aus:

Zitat:

Hallo=712+sd
n+od +df

Ich verstehe nicht was ich falsch gemacht habe...
Wenn an dieser Stelle eine AV kommt, hätte eigentlich noch nichts Ausgegeben werden dürfen...

Wisst ihr warum das so ist???

gruß Teekeks

[himitsu]

Delphi-Quellcode:

while TheLine[x+1] in ['a'..'z','A'..'Z'] do

while TheLine[x+1] in ['0'..'9'] do

diese beiden Schleifen können dafür sorgen, daß x aus dem gültigen Bereich rausläuft

probier mal dieses (durch obrige Schleifen kann es passieren, daß genau der EINE austrittspunkt übersprungen wird)

Delphi-Quellcode:

while x < Length(TheLine) do

und es könnte nix schaden, wenn du in oben genannte Schleifen auch noch eine Length-Abfrage mit reinmachst.

[Teekeks]

THX!
Jetzt geht es...
Bei mir gehen nur die größer und kleiner als Tasten nicht( sch...limmer Laptop), deswegen wollte ich das mit = lösen ^^
Ich schein aber nicht drumrum zu kommen...

gruß Teekeks

[himitsu]

nimm dann doch einfach ein anderes Tastaturlayout ... da gibt's Welche, wo diese Zeichen auf anderen Tasten liegen :)

oder Copy&Paste :angel:

Zitat:

< >

bzw. Alt+060 = < und Alt+062 (Zahlen im Ziffernblock, aber k.A. wie einfach das mit'm Schlepptop geht)

[Satty67]

[spam]
Hier ein paar Operatoren:

{ <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< }
{ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> }

einfach per Copy&Paste in den Quelltext legen und bei Bedarf einzelnen Operator markieren und mit der Mouse an die richtige Stelle ziehen.

Das ist nur ein Schnupper-Angebot, weitere Operatoren sind kostenpflichtig!
[/spam] Mist, himitsu war schneller und hat meinem Spam-Post den Sinn genommen

[Teekeks]

@satty: Ich würde gerne ein All Inclusiv angebot nehmen....
Was kostet das??

[himitsu]

Bei mir nichtmal einen Euro ... nur 33ct pro Zeichen. :angel:

PS: Hier noch ein paar ||||||||||| (die sind ja meißt auch mit auf dieser Taste)

Wie geagt, probier einfach mal z.B. das amerikanische Tastaturlayout (wenn du das deutsche drin hast, oder andersrum), mußt nur aufpassen, daß dann zusätzlich noch Y und Z vertauscht sind.

Dann sind diese Zeichen da Rechts irgendwo, bei Komma und Co.

[sirius]

Zitat:

Zitat von himitsu

PS: Hier noch ein paar ||||||||||| (die sind ja meißt auch mit auf dieser Taste)

Wusste gar nicht, dass man diesen Operator jetzt auch schon in Delphi benötigt. Bisher war Delphi doch sehr freundlich bzgl. des deutschen Tastaturlayouts.

[himitsu]

Zitat:

Zitat von sirius

Wusste gar nicht, dass man diesen Operator jetzt auch schon in Delphi benötigt. Bisher war Delphi doch sehr freundlich bzgl. des deutschen Tastaturlayouts.

hast du schonmal mit einem TOpenDialog oder seinen Freunden gearbeitet?

[sirius]

ok. aber zur Verteidigung ist noc zu sagen, dass dieses Verhalten nicht durch Delphi, sondern durch Windows veranlasst wird.

Edit: ausserdem hat der Nutzer in meinen Programmen eh nix zu sagen, ergo gibts auch keine Dialoge, meine Programme sind Monologe :mrgreen:

[Teekeks]

Die Taste geht algm. nicht.
Wie verstellt man das Tastatur Layout der Tastatur?
Ich habs nicht gefunden...
ps.: ich hab hier XP oben.
pps.: die betreffende Taste ist bei mir rechts oben neben F12 und dem ^ (welches hier auf der Betreffenden Taste liegt ^^).
roter Kasten:

Zitat:

Zitat von sirius

ok. aber zur Verteidigung ist noc zu sagen, dass dieses Verhalten nicht durch Delphi, sondern durch Windows veranlasst wird.

Edit: ausserdem hat der Nutzer in meinen Programmen eh nix zu sagen, ergo gibts auch keine Dialoge, meine Programme sind Monologe :mrgreen:

:mrgreen:

[quendolineDD]

Gab da ein kürzel mit Strg + Alt + Shift oder so. Oder halt in der Taskleiste hast du unten Rechts das DE, dort kannst du das verstellen bzw. irgendwo in der Systemsteuerung. Hab hier nur Vista zum schauen und das bringt dir ja herzlich wenig ;-)

[Teekeks]

Zitat:

Zitat von quendolineDD

Gab da ein kürzel mit Strg + Alt + Shift oder so. Oder halt in der Taskleiste hast du unten Rechts das DE, dort kannst du das verstellen bzw. irgendwo in der Systemsteuerung. Hab hier nur Vista zum schauen und das bringt dir ja herzlich wenig ;-)

Weder ist das "DE" in der task-Leiste nocht geht dein Kürzel...

[himitsu]

wo man das ändern kann ... gute Frage :gruebel:

irgendwo in der Systemsteuerung vermutlic, aber Systemsteuerung\Tastatur kannst du knicken, da isses nicht drin :lol:

hast du in der Startleiste etwas vom MIME drin?
ich glaub per Standard ist da eine Leiste eingeblendet "Eingabegebietsschemaleiste",
darin sollte sich was finden lassen.

Und das Kürzel geht bei mir auch nicht (hatte es beim Windows-Setup gleich abgestellt, da ich s.B. LStrg+LShift ausversehn mal drücke :wall: )


PS: Startmenü\Programme\Zubehör\Eingabehilfen\Bildschi rmtastatur

[edit]
IME und nicht MIME :wall:

[Teekeks]

Zitat:

Zitat von himitsu

wo man das ändern kann ... gute Frage :gruebel:

irgendwo in der Systemsteuerung vermutlic, aber Systemsteuerung\Tastatur kannst du knicken, da isses nicht drin :lol:

hast du in der Startleiste etwas vom MIME drin?
ich glaub per Standard ist da eine Leiste eingeblendet "Eingabegebietsschemaleiste",
darin sollte sich was finden lassen.

Und das Kürzel geht bei mir auch nicht (hatte es beim Windows-Setup gleich abgestellt, da ich s.B. LStrg+LShift ausversehn mal drücke :wall: )


PS: Startmenü\Programme\Zubehör\Eingabehilfen\Bildschi rmtastatur

Cooles Tool.
Was soll "MIME" sein?
gibts bei mir nicht...

[Zwoetzen]

Man sollte aber auch beachten, dass so gut wie alle Sonderzeichen auf der englischen Tastatur woanders liegen, somit geht dann jedes mal die Suche los, wo denn die ( war ^^
(Ein weiterer Nachteil könnte sein, dass ä,ö,ü etc überhaupt nicht mehr vorhanden sind. Auch das sollte man nicht vergessen ;))

Deshalb wohl doch eher Bildschirmtastatur oder Copy&Paste :mrgreen:

[sirius]

Wir sind doch Programmierer :duck:
Weshalb nicht ein Programm schreiben, was einen Shortcut überwacht und dann entsprechend reagiert. Oder gleich in die IDE einbinden.

[himitsu]

Zitat:

Zitat von sirius

Wir sind doch Programmierer :duck:

MIME ... ich meinte IME :wall: ... dat, wozu auch dieses ganze Eingabegebietsschemazeugs gehört.


Genau ... gab's hier nicht vor 'ner Weile einen, welcher eine Taste eines Schlepptops blockieren wollte?
Hier braucht man ja nur den anderen Weg, eine andere Taste einfach umleiten ... z.B. ein globaler Tastaturhook auf F1 und dieses nach < umgeleitet und Shift+F1 nach > ... vorallem da diese Taste sonst eh keiner nutzt :nerd:

[Teekeks]

Ich benutze sie schon öfters...
Ärgerlich wäre allerdings F9 ^^
Ich hab jetzt die Bildschirmtastatur... geht ganz gut.
Was passiert den bei Shift+F1??

Umstellen werde ich glaube ich nichts, ich muss den Scheptop ja Sonntag wieder zurück geben (ist nicht meiner, hab ich mir nur für die Zeit meines Praktikums ausgeliehen).

gruß Teekeks

[Satty67]

Zitat:

Zitat von Teekeks

Was passiert den bei Shift+F1?

Bei Delphi... nichts?

Bei OpenOffice z.B. wird die Sprechblasenhilfe für Schaltflächen eingeschaltet.

[Teekeks]

Ich wollte schon sagen. ich wusste nämlich nicht was darauf bei Delphi/Lazarus sein soll...