[Delphi] В архиве программа, которая строит граф. Как убрать веса с ребер?

[Illtry]

Здравствуйте. В архиве программа, которая строит граф. Как убрать веса с ребер? Помогите, пожалуйста.

[p51x]

Скопипастили код так хоть прочтите или статью посмотрите. Уберите

if (X[i] > X[j]) then
text_X := X[j] + ((X[i]-X[j]) div 2) — (Length(IntToStr(A[i, j]))*3)
else
text_X := X[i] + ((X[j]-X[i]) div 2) — (Length(IntToStr(A[i, j]))*3);
if (Y[i] > Y[j]) then
text_Y := Y[j] + ((Y[i]-Y[j]) div 2) — 6
else
text_Y := Y[i] + ((Y[j]-Y[i]) div 2) — 6;
Image.Canvas.TextOut(text_X, text_Y, IntToStr(A[i, j]));

[Illtry]

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

Скопипастили код так хоть прочтите или статью посмотрите. Уберите

if (X[i] > X[j]) then
text_X := X[j] + ((X[i]-X[j]) div 2) — (Length(IntToStr(A[i, j]))*3)
else
text_X := X[i] + ((X[j]-X[i]) div 2) — (Length(IntToStr(A[i, j]))*3);
if (Y[i] > Y[j]) then
text_Y := Y[j] + ((Y[i]-Y[j]) div 2) — 6
else
text_Y := Y[i] + ((Y[j]-Y[i]) div 2) — 6;
Image.Canvas.TextOut(text_X, text_Y, IntToStr(A[i, j]));

Спасибо большое)) Я разберусь