String formatieren

[haderlump]

Ich habe folgendes Problem: Der User schreibt einen Text in ein Textfeld.
Dieses muss formatiert vorliegen um es in (nebst anderen Textfeldern)einer Datei zu speichern. Dazu muss der Text genau 20 Zeichen lang sein, Die nicht eingegebenen Stellen sollen Leerzeichen sein.
Also: Ich gebe ein: "W123" hernach soll herauskommen "W123 ". Wie mache ich das am einfachsten?
Man kann das sicher mit einer Schleifenkonstruktion lösen, aber da gibt es doch sicherlich eine einfachere Methode.


Danke schon mal im voraus.

[icho2099]

strutils.PadRight hilt dir sicher

[Mathias]

Dazu muss der Text genau 20 Zeichen lang sein, Die nicht eingegebenen Stellen sollen Leerzeichen sein.

Evtl. hilft die auch ein ShortString, Dieser String im Beispiel ist immer exakt 20 +1 Zeichen lang. s[0] beinhaltet die Länge.

Code: Alles auswählen

var
  s: string[20];

[NoCee]

ich würde vermuten daß dann aber nach "W123" Schrott drinsteht.
Ich hab das mal für eine Maschinenkommunikation gebraucht und das
in der Art gelöst:

Code: Alles auswählen

  s1:= '                    ';//20 Leerzeichen
  s2:= 'W123';
  s2:= S2+s1;
  setlength(s2,20); 

dann wird rechts immer mit Leerzeichen aufgefüllt und der String ist immer 20 Zeichen lang.

Gruß
NoCee

[juelin]

Habe schon vor langer Zeit dazu 2 Funktionen geschrieben.

Code: Alles auswählen

{
  Function Blankweg
      entfernt Blanks am Amfang, am Ende
      oder am Anfang und Ende von Btextstring
      und gibt den String wieder zurück
  Eingabefelder
      Art (1=am Anfang, 2=am Ende, 3=am Anfang und am Ende)
      Btextstring = Text der bearbeitet werden soll
  Ausgabefelder
      Result = bearbeiteter Btextstring
}
function TForm1.Blankweg(Art: integer; var Btextstring: string): string;
  var laenge: integer;
  var stelle: integer;
  var vari12: integer;
  var zeichen: string;
  var ausgabe: string;
begin
  laenge:=Length(Btextstring);
  ausgabe:='';
  if laenge > 0 then
  begin
    ausgabe:=Btextstring;
    if ((Art = 1) or (Art = 3)) then
    begin
      vari12:=0;
      for stelle:=1 to laenge do
      begin
        zeichen:=Copy(Btextstring,stelle,1);
        if (vari12 = 0) then
        begin
          if (zeichen <> ' ') then
          begin
            vari12:=stelle;
          end;
        end;
      end;
      if vari12 > 0 then
      begin
        zeichen:=Btextstring;
        ausgabe:=Copy(zeichen,vari12,laenge-(vari12-1));
      end else begin
        ausgabe:='';
      end;
    end;
    laenge:=Length(ausgabe);
    if laenge > 0 then
    begin
      if ((Art = 2) or (Art = 3)) then
      begin
        vari12:=0;
        for stelle:=laenge downto 1 do
        begin
          zeichen:=Copy(ausgabe,stelle,1);
          if (vari12 = 0) then
          begin
            if (zeichen <> ' ') then
            begin
              vari12:=stelle;
            end;
          end;
        end;
        if (vari12 > 0) then
        begin
          zeichen:=ausgabe;
          ausgabe:=Copy(zeichen,1,vari12);
        end else begin
          ausgabe:='';
        end;
      end;
    end else begin
      ausgabe:='';
    end;
  end;
  Result:=ausgabe;
end;

Code: Alles auswählen

{
  Function Blankdazu
      kürzt den Htextstring auf die Länge vom Lan
      oder fügt Blanks in Htextstring dazu bis die Länge von Lan erreicht ist
      und gibt den String wieder zurück
  Eingabefelder
      Pos (1=Anfang vom Text - vor dem Text, 2=Ende vom Text - hinter dem Text)
      Lan Länge des Ausgabestring Result
      Htextstring = Text der bearbeitet werden soll
  Ausgabefelder
      Result = bearbeiteter Htextstring
}
function TForm1.Blankdazu(Pos, Lan: integer; var Htextstring: string): string;
  var laenge: integer;
  var stelle: integer;
  var ausgabe: string;
begin
  laenge:=Length(Htextstring);
  ausgabe:=Htextstring;
  if laenge < Lan then
  begin
    while laenge < Lan do
    begin
      if Pos = 1 then
      begin
        ausgabe:=' '+ausgabe;
      end else begin
        ausgabe:=ausgabe+' ';
      end;
      laenge:=Length(ausgabe);
    end;
  end else begin
    if laenge > Lan then
    begin
      if Pos = 1 then
      begin
        stelle:=laenge-Lan+1;
        ausgabe:=Copy(Htextstring,stelle,Lan);
      end else begin
        ausgabe:=Copy(Htextstring,1,Lan);
      end;
    end;
  end;
  Result:=ausgabe;
end;

Gruß
Jürgen

[Ally]

Hallo zusammen,

was bisher noch gar nicht berücksichtigt wurde, ist das auftreten von Sonderzeichen.
Auch hier bietet Lazarus eine Lösung. Analog zu PadRight gibt es auch UTF8PadRight.

Anbei ein Beispiel.

Viele Grüße
Roland

[haderlump]

Danke für die Antworten, das hat mir schon sehr weiter geholfen.

Gruß Fritz