Fylle ut en variabel med mellomrom?

Jeg har variablen S: String[8] som inneholder teksten "hei".

Hvordan kan jeg fylle ut resten av veriablen med " " så det blir "hei "?

Kode 

uses
  StrUtils;

procedure TMyForm.MyButtonClick(Sender: TObject);
var
  S: string[8];
begin
  S := 'Hej';
  S := LeftStr(S + '        ', 8);
  ShowMessage('>' + S + '<');
end;

Kode 

function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
begin
  Result := Copy(WideString(AText), 1, ACount);
end;

Jeg har variablen S: String[8] som inneholder teksten "hei".

Hvordan kan jeg fylle ut resten av veriablen med " " så det blir "hei "?


Du kan evt. anvende LeftStr:

Kode 

uses
  StrUtils;

procedure TMyForm.MyButtonClick(Sender: TObject);
var
  S: string[8];
begin
  S := 'Hej';
  S := LeftStr(S + '        ', 8);
  ShowMessage('>' + S + '<');
end;

LeftStr - I tilfælde af at du ikke har unit'en StrUtils.

Kode 

function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
begin
  Result := Copy(WideString(AText), 1, ACount);
end;

/MHA


[Redigeret d. 11/02-04 12:47:43 af MHA]