Здравстуйте !
У меня возник вопрос. Надеюсь Вы мне поможите !
Юзер вводит текст в допустим edit1. Мне необходимо перенести текст, по нажатию на button1, разделителем является пробел и вывести этот в текст в label1. Но мне необходимо переносить текст по определенному правилу.
Допустим, в edit1 ввели такой текст 'Программирование на Borland Delphi'.
Юзер нажимает на button1.И вот тектс переводтся в label1 с условием, что 1 строка не должна быть больше чем 25 символов, если же получается так, что 26 символ входит в состав слова, то слово релить нельзя !
Например
Программирование на Borland Delphi
button1
Программирование на Borla
nd Delphi
**********************************************
это будет непраильно, нам же, слова делить нельзя, следовательно , после нажатия на кнопку, в label1.caption должен выглядить примерно так
Программирование на
Borland Delphi
**********************************************
Навярняка, кто-то сталкивался с такой проблеммой, если кому не жалко, плиз, выложите модуль или функцию/процедуру

ps: В DRKB & Delphi world искал, то что нужно не нашел !

Спасибо !

HAS, что непонятно?
Например, можно сделать так:
1. Читаешь строку из Edit
2. Меньше 25 символов - то сразу выводишь в Label.
3. Больше 25 символов - берешь 26 символ, если не пробел движешься в началу, до первого пробела. Дошёл до пробела - выводишь в Label и движешься дальше, пока строка не иссякнет.

Возможно, не самое лучшее, но это первое, что пришло в голову.

По моему всё просто. Создай новый проект, в Unit1 впиши этот текст (Delphi 7):
Unit1

Код

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Label1: TLabel;     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   with Label1 do     begin       WordWrap := True;       AutoSize := False;       Height := 70;       Width := Label1.Canvas.TextWidth(StringOfChar('A', 25));     end; end; procedure TForm1.Button1Click(Sender: TObject); begin   Label1.Caption := Edit1.Text; end; end.

А вместо формы (Alt-F12) вот такой текст:
Form1

Код

object Form1: TForm1   Left = 310   Top = 125   Width = 515   Height = 258   Caption = 'Form1'   Color = clBtnFace   Font.Charset = DEFAULT_CHARSET   Font.Color = clWindowText   Font.Height = -11   Font.Name = 'MS Sans Serif'   Font.Style = []   OldCreateOrder = False   OnCreate = FormCreate   PixelsPerInch = 96   TextHeight = 13   object Label1: TLabel     Left = 36     Top = 42     Width = 32     Height = 13     Caption = 'Label1'   end   object Edit1: TEdit     Left = 30     Top = 12     Width = 337     Height = 21     TabOrder = 0     Text = 'Edit1'   end   object Button1: TButton     Left = 210     Top = 66     Width = 75     Height = 25     Caption = 'Button1'     TabOrder = 1     OnClick = Button1Click   end end

Если я правильно понял вопрос, то вроде всё работает

Короч:

Код

function gettxt(x: integer; str: string): String; Var i, j, z:integer; vrem: string; Label m; begin   vrem:='';   i:=0; j:=0; z:=0;   for i:=1 to length(str) do   begin     if str[i]=' ' then     begin       inc(j);       if j=x-1 then       begin         z:=i+1;         repeat           vrem:=vrem+str[z];           inc(z);         until (str[z]=' ') or (str[z]='');       end;     end;   end;   gettxt:=vrem; end;

Этот код показывает х-ое слово... Дальше разберись сам...
Вот примерно в чем разобраться, но токо это не пашет, а идею сам улови ;)

Код

procedure TForm1.Button1Click(Sender: TObject); var i, sum:integer; begin   i:=1;   Label1.Caption:='';   if length(edit1.Text)<26 then Label1.Caption := Edit1.Text   else     repeat       if length(gettxt(i, Edit1.Text))>25 then       Begin         ShowMessage('Ļåšāīå ńėīāī óęå ķå ļīäõīäčņ ģėčķ! Ņū ÷å ńąģ ķå āčäčųü?');         Halt;       end else       begin         sum:=length(gettxt(i, Edit1.Text))+1;         if sum<26 then           Label1.caption:=Label1.Caption+gettxt(i, Edit1.Text)         else begin           sum:=1;           Label1.caption:=Label1.Caption+#13#10;         end;         inc(i);       end;     until gettxt(i, Edit1.Text)=''; end;

спасибо, но мне надо было вот эти свойства
AutoSize=False + WordWrap=True

HAS
А если системный шрифт гиганского размера или наобарот мелкий, что тогда?

Цитата

А если системный шрифт гиганского размера или наобарот мелкий, что тогда?

~FoX~, ну.. в моем случае этого быть не может !