Text Reverse

[Rastaman]

So. Mein erstes kleines Prog das ich hier vorstelle.
Wie der Name schon vermuten lässt, dreht es eingegebenen Text um, jedoch nicht auf knopfdruck, sondern direkt beims Schreiben.
Auf Wunsch wird der umgedrehte Text sofort in die Zwischenablage kopiert, damit er sofort im Chat etc. eingefügt werden kann.
Mit einem Druck auf die EnterTaste im Eingabefeld ist der Text sofort gelöscht und man kann neuen eingeben.
Das Programm erstellt auch noch eine kleine ini-Datei im Windowsordner, um die Einstellungen zu speichern.
Guckts euch einfach mal an

//edit: So die funktion von jim is drin. Hätte nicht gedacht dass ich das schaffe

[Rastaman]

Daran habe ich auch schon gedacht aber keine ahnung wie ich das machen könnte

[Kernel32.DLL]

Keine Ahnung wie du was machen könntest?

[Rastaman]

Dass die Satzzeichen am Ende stehen.
Schreib mal einen Satz mit "Wortreihenfolge beibehalten" und mach am ende ein ?

//edit:Sorry for Doppelpost

[Rastaman]

Dass die Satzzeichen am Ende stehen.
Schreib mal einen Satz mit "Wortreihenfolge beibehalten" und mach am ende ein ?

[stefangeorg]

Ich kenne ja deinen Algorithmus nicht,
aber prüfe doch ob am Wortende ein Satzzeichen ist.

Wenn ja lass die Umdrehprozedur vor dem Satzzeichen beenden.

mfg

Georg Härting

[Rastaman]

Code:

procedure TForm1.txtEingabeChange(Sender: TObject);
var
  s, s2, s3, s4: String;
  sl: TStringList;
  i, x:Integer;
begin
  s := txtEingabe.Text;
  try
    For i:=0 to Length(s) do
      s2 := s2 + s[Length(s) - i];
      If chkKeep.Checked = False then
        txtAusgabe.Text := s2
      else begin
        sl := TStringList.Create;
        sl.Delimiter := ' ';
        sl.DelimitedText := s2;
        For x:=1 to sl.Count do begin
          s3 :=  sl.Strings[sl.count - x];
          s4 := s4 + s3 + ' ';
        end;
        txtAusGabe.Text := s4;
        s4 := '';
      end;
        If chkCopy.Checked = True then
          Clipboard.AsText := txtAusgabe.Text;
  except
    txtAusgabe.Text := '';
  end;
end;

[stefangeorg]

Ich würde es etwa so machen (hab kein Delphi zur Hand, aus dem Kopf...)

Delphi-Quellcode:

procedure TForm1.txtEingabeChange(Sender: TObject); 
var 
  s, s2, s3, s4: String; 
  sl: TStringList; 
  i, x:Integer;
  //
  sTemp : String;
  // 
begin 
  s := txtEingabe.Text; 
  try 
    For i:=0 to Length(s) do 
      s2 := s2 + s[Length(s) - i]; 
      If chkKeep.Checked = False then 
        txtAusgabe.Text := s2 
      else begin 
        sl := TStringList.Create; 
        sl.Delimiter := ' '; 
        sl.DelimitedText := s2; 
        For x:=1 to sl.Count do begin 
          s3 :=  sl.Strings[sl.count - x];

          // hier wird die Wortreihenfolge wieder hergestellt???
          // dann hier auf Satzzeichen prüfen ... z.B.
          if (s3[1] =  '!') or (s3[1] = '?') or (s3[1] = '.') then
          begin
               sTemp := s3[1];
               s3 := Copy(s3, 2, Length(s3) - 1) + sTemp;
          end;
          //
 
          s4 := s4 + s3 + ' '; 
        end; 
        txtAusGabe.Text := s4; 
        s4 := ''; 
      end; 
        If chkCopy.Checked = True then 
          Clipboard.AsText := txtAusgabe.Text; 
  except 
    txtAusgabe.Text := ''; 
  end; 
end;

Es gibt da noch ein ganz paar bessere und einfachere Methoden zur String-Manipulation,
aber da schau mal in die OH.

mfg

Georg Härting

[Rastaman]

Jo klappt
Aber versteh ich nicht wirklich