Delphi-PRAXiS
Seite 2 von 4     12 34      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Ladebalken der anzeigt wan procedure beendet ist (https://www.delphipraxis.net/109013-ladebalken-der-anzeigt-wan-procedure-beendet-ist.html)

Deltachaos 22. Feb 2008 21:21

Re: Zeichen in Memo ersetzen
 
Zitat:

Zitat von dominikkv
gib doch mal kurz vor oder nach der Zeile mal ein showmessage(formdialog.Edit1.text); aus, dann weißt du was drin steht.

habs hinbeckommen.

etz habe ich folgendes problem (abgesehen davon das meine maus kaput gegangen ist und ich mit der Tastaturmaus weiterarbeite)

ich würde gerne das der text in edit1 "geteilt" wird

soll heisen
Ich gebe ein abcd
das wird dan normalerweise in der variable key1 gespeichert ich will aber das in variable Key1 ab und in variable Key1A cd gespeichert wird.

hintergrung:

Delphi-Quellcode:
  form1.memo1.text := StringReplace(form1.memo1.text, 'a', 'abc' + Key1 + 'defg' + Key2A, [rfReplaceAll]);

Deltachaos 22. Feb 2008 21:28

Re: Zeichen in Memo ersetzen
 
also im grunde genommen soll edit1 in zwei strings aufgeteilt werden.

Deltachaos 22. Feb 2008 21:46

Re: Zeichen in Memo ersetzen
 
funktionirt das nicht die ersten beiden zeichen/buchstaben in eine variable packen die beiden danach in eine und die danach dan auch in eine????

dominikkv 22. Feb 2008 21:53

Re: Zeichen in Memo ersetzen
 
Es gibt auch eine Editier-Funktion die man nutzen kann wenn einem noch etwas einfällt!
Das was du machst nennt sich pushen und wird nicht so gern gesehen^^
Ich werde jetzt mal mit Absicht nicht antworten.

Deltachaos 22. Feb 2008 22:12

Re: Zeichen in Memo ersetzen
 
Zitat:

Zitat von dominikkv
Es gibt auch eine Editier-Funktion die man nutzen kann wenn einem noch etwas einfällt!
Das was du machst nennt sich pushen und wird nicht so gern gesehen^^
Ich werde jetzt mal mit Absicht nicht antworten.

ok etz weis ichs.
ähm..
so ne denckanstos wehre ja auch gatz nett gewesen da wüsste ich wehnigstens nach was ich suchen soll

dominikkv 22. Feb 2008 22:23

Re: Zeichen in Memo ersetzen
 
ok, wollen wir mal nicht so sein ;)
Strings teilen kannst du zB mit Copy.
Delphi-Quellcode:
Key1 := Copy(MeinText, 1, length(MeinText) div 2);
Key2 := Copy(MeinText, length(MeinText) div 2, length(MeinText) div 2);
Kann sein das hier mal ein Buchstabe am Anfang/Ende verschluckt wird...ich hab das grad nicht getestet^^

Deltachaos 23. Feb 2008 08:42

Re: Zeichen in Memo ersetzen
 
Zitat:

Zitat von dominikkv
ok, wollen wir mal nicht so sein ;)
Strings teilen kannst du zB mit Copy.
Delphi-Quellcode:
Key1 := Copy(MeinText, 1, length(MeinText) div 2);
Key2 := Copy(MeinText, length(MeinText) div 2, length(MeinText) div 2);
Kann sein das hier mal ein Buchstabe am Anfang/Ende verschluckt wird...ich hab das grad nicht getestet^^

und in welcher variable wird das dan gespeichert?
und was ist das meintext?

wehte net wen du mir die einzelnen funktionen in dem text erkären könntest?

DeddyH 23. Feb 2008 08:49

Re: Zeichen in Memo ersetzen
 
Schau Dir mal die Copy-Funktion in der Hilfe an. Die erste Zeile speichert die erste Hälfte von MeinText in Key1, die zweite die zweite Hälfte (soll sie zumindest) in Key2.

Deltachaos 23. Feb 2008 09:00

Re: Zeichen in Memo ersetzen
 
Zitat:

Zitat von DeddyH
Schau Dir mal die Copy-Funktion in der Hilfe an. Die erste Zeile speichert die erste Hälfte von MeinText in Key1, die zweite die zweite Hälfte (soll sie zumindest) in Key2.

da kapir ich nur die hälfte.
das is irgendwie komisch geschrieben.
hab mir auch schon das beispiel angegugt.

Kann mir das wer auf "deutsch" erklären? :cyclops:

Deltachaos 23. Feb 2008 09:01

Re: Zeichen in Memo ersetzen
 
Zitat:

Zitat von DeddyH
Schau Dir mal die Copy-Funktion in der Hilfe an. Die erste Zeile speichert die erste Hälfte von MeinText in Key1, die zweite die zweite Hälfte (soll sie zumindest) in Key2.

Aso ich glaub ich blicks langsam

Delphi-Quellcode:
Key1 := Copy(form1.edit1.text, 1, length(form1.edit1.text) div 2);
Key1a := Copy(form1.edit1.text, length(form1.edit1.text) div 2, length(form1.edit1.text) div 2);


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:17 Uhr.
Seite 2 von 4     12 34      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz