Записать заданный текст вертикально. Максимальное количество одновременно используемых строк задается пользователем.
Помогите с алгоритмом переворота! Прошу Вас, великие программисты!

Что здесь сложного? Создаеш шрифт в винде. При создании шрифта есть поле

Цитата

lfOrientation Specifies the angle, in tenths of degrees, between each character's base line and the x-axis of the device.

Задаеш угол под которым хочеш разместить строку.

Да не, мне надо из компонента Edit перевернуть вертикально строку в Memo. Как это?

Sadko, на чем пишем ?

На Delphi 7. Поскажи, если знаешь как сделать ЭТО и как это:максимальное количество одновременно используемых строк задается пользователем. Буду очень признателен!

Цитата(Sadko @ 2.11.2005, 17:41)

На Delphi 7.

Модератор: Раздел для вопросов нужно выбирать правильно!

Sadko, вот посмотри архив и код, а в принципе ничего сложного мог бы и сам если бы подумал.

Код

procedure TForm1.Button1Click(Sender: TObject); Var len,i:integer; begin len:=length(Edit1.text); for i:=0 to len do begin memo1.Lines.Add(Edit1.Text[i+1]); end; end;

Sorry, пропустил фразу

Цитата

Максимальное количество одновременно используемых строк задается пользователем.

Днем выложу исправленный, сейчас времени нету.

Это сообщение отредактировал(а) Girder - 3.11.2005, 10:46

Присоединённый файл ( Кол-во скачиваний: 6 )
 _________.rar 5,05 Kb

Вот новый архив тут

Цитата

Максимальное количество одновременно используемых строк задается пользователем.

,
Я понимаю это так, что ты задаешь длину строки которая у тебя будет в Edit1 и соответственно число строк memo1 так же будет равняться этому числу.
Пользуйся.

Присоединённый файл ( Кол-во скачиваний: 3 )
 Perevorot.rar 6,53 Kb

EDuard, большое спасибо! Просто спас! Не знаю, как тебя отблагодарить, но если надо, чем помочь в "железе", то я в этом лучше разбираюсь, чем в Delphi . В общем, большое спасибо. Respect!

EDuard, Я может быть нагелю, но сам уже нифига не могу придумать.Голову сломал.
Как сделать так, чтобы я вводил в Edit количество столбцов,а прога делила
введенную строку на столько столбцов.
Пример:
1234567890
Два столбца: 1 2
3 4
5 6
7 8
9 0
Три столбца: 1 2 3
4 5 6
7 8 9
0
И т.д. Как Вам такая задачка? Не хило? Для меня уж точно не хило!!!

По моему просто...
Циклом идешь, записываешь символы, вовремя строчку переводишь. И все..

AlonZo, вот проект в архиве, а код такой:

Код

procedure TForm1.Button1Click(Sender: TObject); Var len,st,i:integer; s,s1:string; begin memo1.Clear; len:=length(Edit1.text); st:=strtoint(Edit2.Text); s:=Edit1.Text; if edit2.Text='' then Application.MessageBox('Êîëè÷åñòâî ñòîëáöîâ íå çàäàíî','Error',MB_OK+MB_iconerror) else begin for i:=0 to len div st+1 do begin s1:=copy(s,1,st); memo1.Lines.Add(s1); s:=copy(s,st+1,len); len:=length(s); end; end; end;

Пользуйся

Это сообщение отредактировал(а) Girder - 5.11.2005, 01:06

Присоединённый файл ( Кол-во скачиваний: 3 )
 Matrix.rar 6,21 Kb

ED, у меня последний вопрос по этой теме.
Как сделать так, чтобы строка выводилась так:
Если количество толбцов рано 2,то вывод:
1 6
2 7
3 8
4 9
5 0
Или если количество столбцов равно 3:
1 4 7
2 5 8
3 6 9
0
И т.д.
Что-то в этом роде. Я честно признаюсь Delphi только начал изучать, а препод вАще лютый.

AlonZo, Привет!

Ты уверен что когда 3 столбца 0 должен быть под тройкой или матрица должна выглядеть следующим образом:

1 5 9
2 6 0
3 7
4 8

Можно и так! Задание, сам понимаешь "левое". Но в любом случае, буду рад помощи