WriteLn com quebra de linha

Delphi

05/03/2004

Olá, estou desenvolvendo um sistema para uma Pizzaria, onde o cliente liga e pede a pizza, e o cliente ensina onde será o local de entrega,Ex:´Após o colegio expressão primeira rua virar a direita, na segunda rua virar a esquerda uma casa azul ao lado da casa nº 74´, como o recibo do pedido e pequeno, gostaria de saber como fazer a quebra de linha para imprimir no pedido o local de entrega, estou usando WriteLn.

Luis


Ldrabelo

Ldrabelo

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

05/03/2004

Tenta dá um WriteLn sem texto nenhum.....
WriteLn(´´);



GOSTEI 0
Pain_elemental

Pain_elemental

05/03/2004

Use essa função, acho que resolve esse e outros problemas:

procedure WriteLnEx(const AMessage: string; const AWidth: Integer = 80);
begin
  if Trim(AMessage) = ´´ then exit;
     WriteLn(Copy(AMessage, 1, AWidth));
  WriteLnEx(Copy(AMessage, AWidth + 1, Length(AMessage)), AWidth);
end;

-----------------------------------------------------------
A prinicipal causa para queda do império romando é que eles não tinham como representar o algarismo 0. Dai seus programas em C nunca terminavam corretamente...


GOSTEI 0
POSTAR