edit.text

[МирзоАкмал]

доброго всем дня,
подскажите пожалуйста как заменить пустые места строки на пробелы или на ноль
н-р: имеется ed1.text, длина = 5, вводимые данные состоят из трёх букв, цифр, остальные пустые места должны меняться либо пробелами либо нулями

[xrob]

отвечу на вопрос "как заменить?":
StringReplace('старая строка','пустое место','чем заменить',[rfReplaceAll])
(только в функцию надо передавать переменную, а не Edit.Text, т.е. S:=Edit.Text)

а на вопрос "что такое пустое место?" ответьте сами =)

[Аватар]

только в функцию надо передавать переменную, а не Edit.Text, т.е. S:=Edit.Text

С чего бы это? Кто запретил передать Edit.Text?

[eval]

Кто запретил передать Edit.Text?

кто кто, понятно кто, герой Delphi.

[Алексей_2012]

как понять пустое место? если вы сами ничего не введете, то пустое место и будет, а если вы про пробелы(в качестве пустых мест), то зачем их заменять на пробелы? если на нули, то пожалуйста, вот код (киньте на форму tedit, tbutton)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.MaxLength:=5;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  k:ShortInt;
  s:string;
begin
 s:=edit1.Text;
for k:=1 to Length(s) do
 if s[k]=' ' then s[k]:='0';
  k:=Edit1.MaxLength-length(s);
  while k<>0 do
  begin
  s:=s+'0';
  Dec(k);
  end;
  Edit1.Text:=s;
end;

end.

[МирзоАкмал]

Спасибо! работает Но есть еще одна проблемка. Так как на форме имеется много edit-ов, возможно ли использовать этот код как функцию чтобы для каждого edit-а не пришлось набирать

Сообщение от xrob

отвечу на вопрос "как заменить?":
StringReplace('старая строка','пустое место','чем заменить',[rfReplaceAll])
(только в функцию надо передавать переменную, а не Edit.Text, т.е. S:=Edit.Text)

а на вопрос "что такое пустое место?" ответьте сами =)

Хороший пример, спасибо!, но оказывается именно ''-пустое место оно не заменяет, а вот пробелы и другие символы заменяет.

[kta87]

МирзоАкмал, пустое место - это отсутствие символов, конечно если нечего нет то нечего и не замениться!

[МирзоАкмал]

Сообщение от kta87

МирзоАкмал, пустое место - это отсутствие символов, конечно если нечего нет то нечего и не замениться!

Да, я с Вами согласен, но задача состоит в том что нужно записать данные из полей в текстовый файл, например поле имеет длину 60 а текст в нем состоит из 45 символов, а когда записываем в файл нужно чтоб все 60 символов отражались (из них 15 пробелов или нулей).

[Аватар]

s:=Edit.Text+StringOfChar('0',60-Length(Edit.Text));

[eval]

нужно записать данные из полей в текстовый файл

Юзайте Format функцию, она забъет куда нало и что надо.