TStringList => Anordnung der Einträge

[Progman]

'DEF' noch eine Position später einfügen?

[Tommy1988]

Steht doch da ;) (Ein Post hoch)

Klappen tuts aber irgentwie nicht, ich weis nicht ws falsch ist. ..

Aber ich glaube TStringList ist auch nicht dafür geeignet.

Denn wenn ich ein paar Leerzeichen eingebe, und dann erst ABC, passiert nix.

Zum SynMemo:
Ist alles gleich zum Memo. Also wenn es ums Eingeben geht .. alles identisch

[Tommy1988]

Zitat:

Zitat von Progman

'DEF' noch eine Position später einfügen?

klappt alles nicht..

[Progman]

Warum nicht gleich die Key-Chars in einen String?
Macht vielleicht vieles einfacher? Aus einem String kann man genauso easy Zeichen löschen, hinzufügen, rauskopieren etc.

[Tommy1988]

Sind ja nicht immer nur Buchstaben. Manchmal auch Zahlen und so..

Ich probiere grade mal etwas mit Copy, hab da eine Idee melde mich sofort wieder.

Ne klappt nicht..

Ok.. abgesehen von allem anderen:
Das mit der StringList klappt alleine deswegen nicht, weil, wie oben scon gesagt, wenn ich
ein paar Leerzeichen zuerst eingebe, und dann erst ABC, reagiert der nicht mehr auf die IF-Abfrage.

Da stimmt nämlich was nicht mit der for-schleife..
Ich dachte eigentlich, dass man sich die anzahl der zeichen in der StringList holen kann, und dann die letzten X in einen string steckt.

aber, wie ich ab label sehen kann, macht AllTypedKeys[i]+Str; etwas anderes

[Progman]

hm, also ich würde die ganzen Eingabezeichen in einen String adden, den dann vor dem Weiterverarbeiten von evtl. Leerzeichen befreien und dann das ausführen, was notwendig ist.

[Tommy1988]

mh, jetzt mal eine andere frage(hätte ich vielleicht am anfang machen sollen)

ist das überhaupt der richtige ansatz ?

also ich mein, wie könnte man soetwas einfacher lösen..

es geht ja nur drum, dass
- wenn z.b. ABC eingegeben wurde, DEF hinten dran gehangen wird -

[Progman]

Delphi-Quellcode:

p:=Pos('ABC', InputStr);
if p > 0 then Insert('DEF',InputStr,p+3);

So müsste es in etwa gehen.

[Progman]

Wenn ins Memo eingegeben wird, könnte man den KeyUp-Event des Memos nutzen und die letzten drei Zeichen vorm Cursor prüfen, wenn es die gesuchte Zeichenkette ist, einfach die dazugehörigen Zeichen an der Cursorposition einfügen.

[Tommy1988]

ich bekomms einfach nicht hin.

Delphi-Quellcode:

procedure TForm1.SynMemo1KeyPress(Sender: TObject; var Key: WideChar);
begin
text := SynMemo1.Text;

   Ln := SynMemo1.CaretY;
   CurPosition := SendMessage(SynMemo1.handle,EM_LineIndex,Ln,0);
   CurPosition := SynMemo1.SelStart-CurPosition;
end;

procedure TForm1.SynMemo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Caption := '('+IntToStr(CurPosition)+') "'
+Copy(SynMemo1.Text, CurPosition-3, 3)+'"'; // nur zum gucken
if Copy(SynMemo1.Text, CurPosition-3, 3) = 'ABC' then // ****
Insert('CDE', text, CurPosition+3);
end;

wenn dann denn mal ABC da wo die ****'s sind zutrifft passiert einfach nix