Stringstelle auf "leer" prüfen

[DonnieDarko_02]

Ich habe einen String
stri:string[10]; nun wird diesem string aus einem editfeld ein eingegebener name übergeben, das ganze dient einem highscore...doch es soll immer auf
die vollen zehn zeichen aufrunden, damit die listbox gleichmäßig aussieht

Delphi-Quellcode:

for s:=0 to 10 do
begin if stri[s]={Was muss ich hier als eigenschaft einsetzen???} then stri[s]:=''; end;

[Meflin]

Mir ist nicht ganz klar, was du erreichen willst - aufrunden?!
Sollen die Leerzeichen am Anfang oder am Ende angehängt werden?!

[HenKst]

Du kannst nicht prüfen ob eine Stelle im String leer ist, da steht immer irgendetwas, wenn da nichts steht ist der string zuende und du kriegst ne accessviolation wenn du auf die Adresse zugreifen willst.

Aber das bringt uns ja schon zur(bzw zu einer) Lösung, du prüfst ob du am letzen zeichen vom string vorbei bist also
if s > length(stri) then stri:= stri + ' '; GreeZ HenKst

[Noedel]

ich denke du suchst length()
Gibt dir die Länge des Strings zurück -> als Integer.

[Fussball-Robby]

Wenn du (so wie ich das verstanden habe) am Anfang jedes Strings Leerzeichen anhängen willst, bis der String 10 Zeichen lang ist, würde ich das so machen:

Delphi-Quellcode:

while Length(str) < 10 do
  s := ' ' + s;

Edit: Obwohl, besser so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  stri: String;
const
  Len = 10;
begin
  stri :=Edit1.Text;
  stri := StringOfChar(' ', Len - Length(stri)) + stri;
  Memo1.Lines.Add(stri);//oder was auch immer zur Ausgabe
end;

[Noedel]

ich dachte, hinten dran?
aber ist ja wayne
Benutz doch dazu am Besten ne ValueListEditor oder nen Stringgrid
Übrigens gleichmäßig bekommst du das ganze eh nicht, wenn du die Font nicht auf Courier oder Courier new setzt ... Da kannst du so viele Leerzeichen machen, wie du willst, es wird immer schief

[Fussball-Robby]

Zitat von Noedel:

ich dachte, hinten dran?

Es geht hier doch nur ums Prinzip Und mit dem bisher geschriebenen muss der Threadersteller wohl was anfangen müssen.

[DonnieDarko_02]

Korrekt...ihr habt mir mit diesen lösungsansätzen wirklich geholfen...vielen dank

[DeddyH]

Da würde ich doch eher rechtsbündig ausrichten als mich so zu verrenken.

[himitsu]

statt
[quote="Fussball-Robby"]

Delphi-Quellcode:

while Length(str) < 10 do
  s := ' ' + s;

oder
stri := StringOfChar(' ', Len - Length(stri)) + stri; einfach
stri := stri + ' '; die Definition war ja
Var stri:string[10]; und dort wird alles über 10 Zeichen abgeschnitten