AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Leerzeichen erzeugen

Ein Thema von SAP · begonnen am 14. Dez 2005 · letzter Beitrag vom 14. Dez 2005
Antwort Antwort
SAP

Registriert seit: 6. Dez 2005
3 Beiträge
 
#1

Leerzeichen erzeugen

  Alt 14. Dez 2005, 14:58
Hallo zusammen,

ich programmiere eingentlich nur bedint für ein Projekt Delphi, da ich Delphi für die OpenOffice Anbindung benötige. Nun möchte ich meine Strings in Delphi bearbeiten, dabei habe ich folgende Frage:

Gibt es in Delphi auch eine Funktion mit der man Leerzeichen erzeugen kann? Also ich will z.B. einen String mit 10 Leerzeichen auffüllen, damit er eine gewisse Länge bekommt und dann daran wieder einen String hängen usw. so will ich mir eine ganze Zeile erzeugen.

Ich kenne das ganze unter Visual Basic, da wird es mit Space(AnzahlLeerzeichen : integer)
realisiert. Auch wenn die Frage dem ein oder anderen hier ziemlich simpel vorkommt, aber ich habe alles mögliche bei Google gefunden nur nicht das was ich brauche.

Vielen Dank vorab an alle die mir helfen.

Beste Grüße

SAP
Kann keine DelphiVersion angeben, weil ich Delphi unter C++ Builder programmiere
  Mit Zitat antworten Zitat
DelphiAndreas

Registriert seit: 25. Okt 2005
124 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Leerzeichen erzeugen

  Alt 14. Dez 2005, 15:00
Delphi-Quellcode:
while length(string) < 10 do
begin
     string := ' ' + String;
end;
so hab ich das immer gemacht, weiß nicht ob das besonders elegant ist, aber es funktioniert
  Mit Zitat antworten Zitat
Benutzerbild von Ultimator
Ultimator

Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
 
FreePascal / Lazarus
 
#3

Re: Leerzeichen erzeugen

  Alt 14. Dez 2005, 15:03
Sowas wie Delphi-Referenz durchsuchenFillChar?

edit: Argh, wie komm ich denn dadrauf? Ich meinte auch StringOfChar, wie mein Nachposter
Julian J. Pracht
  Mit Zitat antworten Zitat
Benutzerbild von tomsel
tomsel

Registriert seit: 8. Dez 2005
Ort: am Chiemsee
304 Beiträge
 
Delphi 7 Professional
 
#4

Re: Leerzeichen erzeugen

  Alt 14. Dez 2005, 15:03
...
s := StringOfChar(#32, iAnzahl);
...
  Mit Zitat antworten Zitat
Benutzerbild von chrisw
chrisw

Registriert seit: 11. Jan 2005
Ort: Schleswig
193 Beiträge
 
Delphi XE8 Professional
 
#5

Re: Leerzeichen erzeugen

  Alt 14. Dez 2005, 15:05
oder AppendStr()
Christian Wahl
me, myself and I, die lustigen Drei !!
  Mit Zitat antworten Zitat
SAP

Registriert seit: 6. Dez 2005
3 Beiträge
 
#6

Re: Leerzeichen erzeugen

  Alt 14. Dez 2005, 21:02
Zitat:
Delphi-Quellcode:
while length(string) < 10 do
begin
     string := ' ' + String;
end;
So hätte ich mir das auch vorgestellt, dass ich mir da eine eigene Funktion schreibe,
aber ich denke so eine grundlegende Funktion wird es in Delphi auch geben, da ich aber unter Borland C++ Builder programmiere, habe ich leider keine Delphi Hilfe wo ich nachschlagen könnte, aber ich werde mal die Varianten:

Zitat:
StringOfChar(#32, iAnzahl)
und

Zitat:
AppendStr()
ausprobieren. Vielen Dank an Euch allen für Eure Antworten.

Beste Grüße

SAP
Kann keine DelphiVersion angeben, weil ich Delphi unter C++ Builder programmiere
  Mit Zitat antworten Zitat
Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#7

Re: Leerzeichen erzeugen

  Alt 14. Dez 2005, 21:26
Hallo,

da gibt es noch die Funktion Format.

Ein Beispiel:
Delphi-Quellcode:
var sFS : String;
begin
  sFS := '%0:-15s %1:-15s %2:3s';//'-' > Leerzeichen rechts, sonst links
  Memo1.Lines.add(Format('%0:-15s %1:-15s %2:s',['Vorname','Name','Alter']));
  Memo1.Lines.add(StringOfChar('-',37));
  Memo1.Lines.add(Format(sFS,['Hans','Meier','42']));
  Memo1.Lines.add(Format(sFS,['Peter','Murks','35']));
  Memo1.Lines.add(Format(sFS,['Klara','Musterfrau','102']));
Die Ausgabe:
Code:
Vorname        Name           Alter
-------------------------------------
Hans           Meier           42
Peter          Murks           35
Klara          Musterfrau     102
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat
Antwort Antwort


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 17:33 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