AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Buchstaben an andere Stelle setzten

Ein Thema von Mariaki · begonnen am 19. Feb 2009 · letzter Beitrag vom 21. Feb 2009
Antwort Antwort
Seite 1 von 3  1 23   
Benutzerbild von Mariaki
Mariaki

Registriert seit: 21. Sep 2008
64 Beiträge
 
RAD-Studio 2010 Arc
 
#1

Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:11
Hi,
also.. ich möchte in einem String z.B. den 2. Buchstaben (Buchstabe:=Text[2]) an eine andere z.B. die 1. Stelle setzten. Also z.B.:
aus
'Hallo'
'aHllo'
oder die 2. an die 3. stelle:
aus
'Hallo'
'Hlalo'.

Also wie man den Buchstaben herausfindet weiß ich ja, nur wie man ihn dann verschiebt das weiß ich nicht.
Gruß Mariaki
Benedikt
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.532 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:12
Die einfachste Methode dürfte sein: Buchstabe merken, mit Delete löschen und mit Insert an neuer Stelle einfügen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
42.982 Beiträge
 
Delphi 12 Athens
 
#3

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:17
oder die beliebte Swap-Funktion

Delphi-Quellcode:
var s: String; // s ist der String, z.B. 'Hallo'
  i, i2: Integer; // i und i2 geben den Index der Zeichen an,
                   // welche getauscht werden sollen

var temp: Char;

c := s[i];
s[i] := s[i2];
s[i2] := c;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.532 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:22
Es muss ja nicht unbedingt tauschen sein
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.026 Beiträge
 
Delphi 10.4 Sydney
 
#5

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:25
Ich würde das ganze über eine allgemeine Funktion lösen:

Delphi-Quellcode:
function Tausche(Wort : String; bs1, bs2 : integer) : String;
VAR TmpChar : Char;

begin
  TmpChar := Wort[bs1];
  Wort[bs1] := Wort[bs2];
  Wort[bs2] := TmpChar;

  result := Wort;
end;

[...]

Edit2.Text := Tausche(Edit1.Text, 2, 5); // Vertauscht z.B. Buchstabe 2 und 5 von Edit1.Text und weist es dem Text von Edit2 zu.
Grüße,
SCRaT
Michael Kübler
  Mit Zitat antworten Zitat
Benutzerbild von Mariaki
Mariaki

Registriert seit: 21. Sep 2008
64 Beiträge
 
RAD-Studio 2010 Arc
 
#6

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:26
also ich wollte nicht tauschen und mit insert und delete habe ich noch nicht gearbeitet. könnte jemand ein kleines code Beispiel schreiben (Bin ein blutiger Anfänger).
Benedikt
Warum merken die ganzen Christen eigentlich nicht, dass Gott veraltet ist. Zur Zeit von Jesus war er ein gutes Medium um Moral zu verbreiten.. aber Heute?!?
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:33
F1 ist dein Freund
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.532 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 20:35
Ausnahmsweise:
Delphi-Quellcode:
procedure MoveChar(var s: string; Index1, Index2: Cardinal);
var c: Char;
begin
  if (Index1 > Length(s)) or (Index2 > Length(s)) then
    Exit;
  c := s[Index1];
  Delete(s,Index1,1);
  Insert(c,s,Index2);
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
42.982 Beiträge
 
Delphi 12 Athens
 
#9

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 21:12
ach stümmt

OK, dann wenigstens DeddyH's Variante ohne Temp-Variable
Delphi-Quellcode:
procedure MoveChar(var S: string; Index1, Index2: Cardinal);
begin
  if (Index1 > Length(S)) or (Index2 > Length(S)) then
    Raise Exception.Create('Fehler');
  If Index2 > Index1 Then Inc(Index2);
  Insert(S[Index1], S, Index2);
  Delete(S,Index1, 1);
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#10

Re: Buchstaben an andere Stelle setzten

  Alt 19. Feb 2009, 21:29
Der Vollständigkeit halber sollte wohl auch auf Index=0 geprüft werden.
Ralph
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz